From 4ae92544b29b6a82ebdae9a6bd947b7c4bdb135f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.(none)>
Date: Thu, 30 Sep 2010 20:48:13 +0100
Subject: [PATCH] fix $when (obs from David Powers)

---
 pl/corout.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/corout.yap b/pl/corout.yap
index e96a45fff..589016cc8 100644
--- a/pl/corout.yap
+++ b/pl/corout.yap
@@ -166,8 +166,8 @@ redo_freeze(Done, _, _) :- nonvar(Done), !.
 %
 % We still have some more conditions: continue the analysis.
 %
-redo_freeze(Done, _, '$when'(C, G, Done)) :- !,
-	'$when'(C, G, Done).
+redo_freeze(Done, _, when(C, G, Done)) :- !,
+	when(C, G, Done).
 	
 %
 % check if the variable was really bound