diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix file_name_extension with '' as second arg (obs from Crhis Mungall)

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-11-26 23:44:11 +00:00
parent 471cc93f6c
commit 99f1249382
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/consult.yap
View File

@ -1036,6 +1036,8 @@ file_name_extension(A1,A2,F) :-
atom_codes(A2, S2), atom_codes(A2, S2),
( (
S2 = [0'.|_] %' S2 = [0'.|_] %'
;
A2 = ''
-> ->
atom_concat(A1, A2, F) atom_concat(A1, A2, F)
; ;