detect module resolved cut in interpreted (,)

2021-11-21 23:09:39 -07:00
parent 073f281f1e
commit 7507e88406
5 changed files with 19 additions and 20 deletions
--- a/src/toplevel.pl
+++ b/src/toplevel.pl
@@ -185,7 +185,7 @@ submit_query_and_print_results(Term0, VarList) :-
    (  functor(Term0, call, _) ->
       Term = Term0 % prevent pre-mature expansion of incomplete goal
                    % in the first argument, which is done by call/N
-    ;  expand_goal(call(Term0), user, call(Term))
+    ;  expand_goal(Term0, user, Term)
    ),
    setup_call_cleanup(bb_put('$first_answer', true),
                       submit_query_and_print_results_(Term, VarList),