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

Corrected typo (missing quote) that resulted in a syntax error at startup.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1949 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2007-10-09 11:56:00 +00:00
parent 85d463e170
commit a0b5f75016
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/directives.yap
View File

@ -317,12 +317,12 @@ yap_flag(version,X) :-
yap_flag(version_data,X) :- yap_flag(version_data,X) :-
var(X), !, var(X), !,
'$get_version_codes(Major,Minor,Patch), '$get_version_codes'(Major,Minor,Patch),
X = yap(Major, Minor, Patch, _). X = yap(Major, Minor, Patch, _).
yap_flag(version_data,X) :- yap_flag(version_data,X) :-
'$do_error'(permission_error(modify,flag,version),yap_flag(version_data,X)). '$do_error'(permission_error(modify,flag,version),yap_flag(version_data,X)).
'$get_version_codes(Major,Minor,Patch) :- '$get_version_codes'(Major,Minor,Patch) :-
get_value('$version_name',X), get_value('$version_name',X),
atom_codes(X,[0'Y,0'a,0'p,0'-|VersionTag]), atom_codes(X,[0'Y,0'a,0'p,0'-|VersionTag]),
'$fetch_num_code'(VersionTag,0,Major,L1), '$fetch_num_code'(VersionTag,0,Major,L1),