ensure environment after goal execution in call_cleanup #106

2009-06-01 23:43:59 -05:00 · 2009-06-01 23:43:59 -05:00 · 627a4f8b1f
commit 627a4f8b1f
parent 484595df5b
1 changed files with 2 additions and 0 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@ -105,6 +105,8 @@ setup_call_catcher_cleanup(Setup, Goal, Catcher, Cleanup) :-
 	 yap_hacks:enable_interrupts,
 	 yap_hacks:current_choice_point(CP0),
 	 '$execute'(Goal),
+	 % ensure environment for delayed variables in Goal
+	 '$true',
 	 yap_hacks:current_choice_point(CPF),
 	 (
 	  CP0 =:= CPF ->