small updates
This commit is contained in:
parent
5e80c3ca86
commit
f79f93bccd
@ -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),
|
||||
\+ (
|
||||
|
@ -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,
|
||||
|
Reference in New Issue
Block a user