fix ref to $freeze

This commit is contained in:
Vítor Santos Costa II 2010-03-15 20:40:05 +00:00
parent 3c67550975
commit 8df2b4a963
1 changed files with 1 additions and 1 deletions

View File

@ -113,7 +113,7 @@ setup_call_catcher_cleanup(Setup, Goal, Catcher, Cleanup) :-
'$safe_call_cleanup'(Goal, Cleanup, Catcher, Exception) :-
yap_hacks:current_choice_point(MyCP1),
'$freeze_goal'(Catcher, '$clean_call'(Active, Cleanup)),
'$coroutining':freeze_goal(Catcher, '$clean_call'(Active, Cleanup)),
(
yap_hacks:trail_suspension_marker(Catcher),
yap_hacks:enable_interrupts,