restore support for tabling and delimited continuations (#779)

This commit is contained in:
Mark Thom
2021-02-17 16:18:49 -07:00
parent 396c589743
commit 2a70ca375c
11 changed files with 23 additions and 6 deletions

View File

@@ -1,5 +1,7 @@
:- module(cont, [reset/3, shift/1]).
:- meta_predicate reset(0, ?, ?).
reset(Goal, Ball, Cont) :-
call(Goal),
'$reset_cont_marker',
@@ -11,7 +13,7 @@ shift(Ball) :-
get_chunks(E, P, L),
( L == [] ->
Cont = cont(true)
; Cont = cont(call_continuation(L))
; Cont = cont(cont:call_continuation(L))
),
'$write_cont_and_term'(_, _, Cont, Ball),
'$unwind_environments'.