backtrack attributed variable bindings after failure (#242)

2019-11-29 13:47:22 -04:00
parent 2d719ab6b7
commit 3e49db1a29
7 changed files with 90 additions and 74 deletions
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -44,8 +44,7 @@
    ),
    (  '$get_b_value'(B), call(Term), '$write_eqs_and_read_input'(B, VarList), !
    ;  write('false.'), nl
-    ),
-    '$reset_attr_var_state'.
+    ).

 '$needs_bracketing'(Value, Op) :-
    catch((functor(Value, F, _),