From 4e4d486dee612fc62a2077fc1c403036c5ff8d65 Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Wed, 9 Sep 2009 18:13:12 -0500
Subject: [PATCH] fix compilation errors

---
 pl/arith.yap | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/pl/arith.yap b/pl/arith.yap
index b6ae53bc8..440d09e1c 100644
--- a/pl/arith.yap
+++ b/pl/arith.yap
@@ -79,6 +79,11 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
 	'$clean_cuts'(NG0, NG),
 	'$do_c_built_in'(A,M,NA).
 '$do_c_built_in'('C'(A,B,C), _, (A=[B|C])) :- !.
+'$do_c_built_in'(X is Y, M, P) :-
+        primitive(X), !,
+	'$do_c_built_in'(X =:= Y, M, P).
+'$do_c_built_in'(X is Y, M, (P,A=X)) :- nonvar(X), !,
+	'$do_c_built_in'(A is Y, M, P).
 '$do_c_built_in'(X is Y, _, P) :-
 	nonvar(Y),		% Don't rewrite variables
 	!,