fix bug in wakeup when in the middle of unifying a list (found by Bart Demoen).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@486 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-05-24 00:13:15 +00:00
parent c98c8fa804
commit c9be907884
3 changed files with 19 additions and 4 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -2514,7 +2514,10 @@ absmi(int inp)
      BIND(pt0, d0, bind_glist);
 #ifdef COROUTINING
      DO_TRAIL(pt0, d0);
-      if (pt0 < H0) WakeUp(pt0);
+      if (pt0 < H0) {
+	WakeUp(pt0);
+	S_SREG = H;
+      }
    bind_glist:
 #endif
      /* don't put an ENDD just after a label */