From 8df2b4a9633620cc84bb42a7d1616dde3a2d1864 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa=20II?= Date: Mon, 15 Mar 2010 20:40:05 +0000 Subject: [PATCH] fix ref to $freeze --- pl/control.yap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pl/control.yap b/pl/control.yap index 9edb4289c..63341b8b7 100644 --- a/pl/control.yap +++ b/pl/control.yap @@ -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,