fix operator handling (by UN).

2012-03-22 22:10:23 +00:00 · 2012-03-22 22:10:23 +00:00 · 4d5c70b64b
commit 4d5c70b64b
parent 756bba9bc5
1 changed files with 1 additions and 1 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@ -99,7 +99,7 @@
 '$check_op_name'(P,T,'|',G) :-
 	 (
 	  integer(P),
-	  P < 1001
+	  P < 1001, P > 0
 	 ;
 	  atom_codes(T,[_,_])
 	 ), !,