Merge branch 'master' of yap.dcc.fc.up.pt:yap-6

2010-11-27 00:13:34 +00:00 · 2010-11-27 00:13:34 +00:00 · 04949ddb37
parent f604df8fec 99f1249382
commit 04949ddb37
1 changed files with 2 additions and 0 deletions
--- a/pl/consult.yap
+++ b/pl/consult.yap
@ -1036,6 +1036,8 @@ file_name_extension(A1,A2,F) :-
 	atom_codes(A2, S2),
 	(
 	 S2 = [0'.|_] %'
+	;
+	 A2 = ''
 	->
 	 atom_concat(A1, A2, F)
 	;