use heap_loc to refer to 0-arity atom instead of str_loc

2021-12-07 22:26:46 -07:00
parent 8ba61a1da1
commit 48c1d05151
2 changed files with 9 additions and 6 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -590,7 +590,7 @@ throw(Ball) :-
 :- non_counted_backtracking '$iterate_find_all'/4.

 '$iterate_find_all'(Template, Goal, _, LhOffset) :-
-    call(Goal),
+    '$call'(Goal),
    '$copy_to_lh'(LhOffset, Template),
    '$fail'.
 '$iterate_find_all'(_, _, Solutions, LhOffset) :-