From 16e3bda6667c8f90bd61de3c2e0461de1810ffe1 Mon Sep 17 00:00:00 2001 From: Paulo Moura Date: Mon, 11 Nov 2013 16:38:04 +0000 Subject: [PATCH] Fix singleton variable that breaks expanding a relative file path --- pl/consult.yap | 2 ++ 1 file changed, 2 insertions(+) diff --git a/pl/consult.yap b/pl/consult.yap index da2a75818..30fb9ec57 100755 --- a/pl/consult.yap +++ b/pl/consult.yap @@ -948,6 +948,8 @@ absolute_file_name(File,Opts,TrueFileName) :- ( is_absolute_file_name(File) -> ActualFile = File ; + '$dir_separator'(D), + atom_codes(DA,[D]), atom_concat([RelTo, DA, File], ActualFile) ) ;