rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

stop unifying ! to free variables in control_functor/1 (#887)

Browse Source
This commit is contained in:
Mark Thom
2021-03-24 15:05:59 -06:00
parent 290cb1b517
commit 37f2336eee
3 changed files with 18 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/toplevel.pl
View File

@@ -149,10 +149,9 @@ instruction_match(Term, VarList) :-
;
submit_query_and_print_results(consult(Item), [])
)
;
catch(type_error(atom, Item, repl/0),
E,
print_exception_with_check(E))
; catch(type_error(atom, Item, repl/0),
E,
print_exception_with_check(E))
)
; Term = end_of_file ->
halt
@@ -167,15 +166,12 @@ submit_query_and_print_results_(Term, VarList) :-
write_eqs_and_read_input(B, VarList),
!.
submit_query_and_print_results_(_, _) :-
% clear attribute goal lists, which may be populated by
% copy_term/3 prior to failure.
write('false.'),
nl.
submit_query_and_print_results(Term0, VarList) :-
expand_goal(call(Term0), user, call(Term)),
!,
setup_call_cleanup(bb_put('$first_answer', true),
submit_query_and_print_results_(Term, VarList),
bb_put('$first_answer', false)).