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

fix version_data

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-10 23:57:46 +01:00
parent 894666efb8
commit 4ccc201322
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/flags.yap
View File

@ -268,10 +268,10 @@ 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,VersionTag), %' atom_codes(X,[_,_,_,_|VersionTag]), %'
'$fetch_num_code'(VersionTag,0,Major,L1), '$fetch_num_code'(VersionTag,0,Major,L1),
'$fetch_num_code'(L1,0,Minor,L2), '$fetch_num_code'(L1,0,Minor,L2),
'$fetch_num_code'(L2,0,Patch,[]). '$fetch_num_code'(L2,0,Patch,_).
'$fetch_num_code'([],Code,Code,[]). '$fetch_num_code'([],Code,Code,[]).
'$fetch_num_code'([C|Cs],Code0,CodeF,L) :- '$fetch_num_code'([C|Cs],Code0,CodeF,L) :-