fix operator handling (by UN).

This commit is contained in:
Vítor Santos Costa 2012-03-22 22:10:23 +00:00
parent 756bba9bc5
commit 4d5c70b64b

View File

@ -99,7 +99,7 @@
'$check_op_name'(P,T,'|',G) :- '$check_op_name'(P,T,'|',G) :-
( (
integer(P), integer(P),
P < 1001 P < 1001, P > 0
; ;
atom_codes(T,[_,_]) atom_codes(T,[_,_])
), !, ), !,