From e2b3d04a42f39bebee069a14f93e891f6c3b74cb Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 2 Jan 2002 06:13:40 +0000
Subject: [PATCH] fix absolute_file_name/2

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@250 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/yio.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/yio.yap b/pl/yio.yap
index 1abb8bc60..421bc27c5 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -871,7 +871,7 @@ at_end_of_stream(S) :-
 
 consult_depth(LV) :- '$show_consult_level'(LV).
 
-absolute_file_name(V,Out) :-
+absolute_file_name(V,Out) :- var(V), !,
 	throw(error(instantiation_error, absolute_file_name(V, Out))).
 absolute_file_name(user,user) :- !.
 absolute_file_name(RelFile,AbsFile) :-