From 014209c22f342f4d45b801843f7a75a306a1defc Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Wed, 22 Jul 2009 14:31:15 -0500
Subject: [PATCH] undo bug fix, it just handled one case.

---
 pl/arith.yap | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/pl/arith.yap b/pl/arith.yap
index 39b7f34c0..8e265806b 100644
--- a/pl/arith.yap
+++ b/pl/arith.yap
@@ -116,11 +116,7 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
 % X the result of the initial expression
 % and the last argument is how we are writing this result
 '$drop_is'(V, V1, P0, G) :- var(V), !,		% usual case
-        ('$undefined'('$c_table'(_,_), prolog) ->
-	    V = V1, P0 = G
-	;
-	    '$do_and'(V = V1,P0,G)
-	).
+        V = V1, P0 = G.
 '$drop_is'(V, X, P0, P) :-			% atoms
         '$do_and'(P1, X is V, P).