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

small updates

This commit is contained in:
Vítor Santos Costa 2013-07-16 08:01:01 -05:00
parent 5e80c3ca86
commit f79f93bccd
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/checker.yap
View File

@ -159,11 +159,13 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
'$handle_multiple'(F,A,NM), '$handle_multiple'(F,A,NM),
fail. fail.
'$check_term'(_, T,_,_,M) :- '$check_term'(_, T,_,_,M) :-
once(( (
get_value('$syntaxcheckdiscontiguous',on) get_value('$syntaxcheckdiscontiguous',on)
->
true
; ;
get_value('$syntaxcheckmultiple',on) get_value('$syntaxcheckmultiple',on)
)), ),
nb_getval('$consulting_file',File), nb_getval('$consulting_file',File),
'$xtract_head'(T,M,NM,_,F,A), '$xtract_head'(T,M,NM,_,F,A),
\+ ( \+ (

2
swi/library/base64.pl
View File

@ -106,7 +106,7 @@ encode([I0, I1, I2|Rest]) --> !,
}, },
encode(Rest). encode(Rest).
encode([I0, I1]) --> !, encode([I0, I1]) --> !,
[O0, O1, O2, 0'=], [O0, O1, O2, 0'=], %'
{ A is (I0<<16)+(I1<<8), { A is (I0<<16)+(I1<<8),
O00 is (A>>18) /\ 0x3f, O00 is (A>>18) /\ 0x3f,
O01 is (A>>12) /\ 0x3f, O01 is (A>>12) /\ 0x3f,