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

View File

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

View File

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