undo bug fix, it just handled one case.

This commit is contained in:
Costa Vitor 2009-07-22 14:31:15 -05:00
parent ead58f6b34
commit 014209c22f
1 changed files with 1 additions and 5 deletions

View File

@ -116,11 +116,7 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
% X the result of the initial expression % X the result of the initial expression
% and the last argument is how we are writing this result % and the last argument is how we are writing this result
'$drop_is'(V, V1, P0, G) :- var(V), !, % usual case '$drop_is'(V, V1, P0, G) :- var(V), !, % usual case
('$undefined'('$c_table'(_,_), prolog) -> V = V1, P0 = G.
V = V1, P0 = G
;
'$do_and'(V = V1,P0,G)
).
'$drop_is'(V, X, P0, P) :- % atoms '$drop_is'(V, X, P0, P) :- % atoms
'$do_and'(P1, X is V, P). '$do_and'(P1, X is V, P).