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),
|
'$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),
|
||||||
\+ (
|
\+ (
|
||||||
|
@ -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,
|
||||||
|
Reference in New Issue
Block a user