clear ball before setting it (#246)

2019-12-01 03:04:01 -07:00
parent 77e83a390c
commit e48f87fcf0
4 changed files with 31 additions and 25 deletions
--- a/src/prolog/toplevel.pl
+++ b/src/prolog/toplevel.pl
@@ -42,8 +42,7 @@
    (  expand_goals(Term0, Term) -> true
    ;  Term = Term0
    ),
-    (  '$get_b_value'(B), call(Term),
-       '$write_eqs_and_read_input'(B, VarList),
+    (  '$get_b_value'(B), call(Term), '$write_eqs_and_read_input'(B, VarList),
       !
    ;  write('false.'), nl
    ).