miscellaneous fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@556 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-07-17 20:25:30 +00:00
parent e476bc0abc
commit c27b23f3a5
12 changed files with 531 additions and 143 deletions
--- a/C/unify.c
+++ b/C/unify.c
@@ -408,9 +408,9 @@ oc_unify_var_nvar:
  /* d0 and pt1 are unbound */
  UnifyCells(pt0, pt1, uc1, uc2);
 #ifdef COROUTINING
- uc1:
  DO_TRAIL(pt0, (CELL)pt1);
  if (pt0 < H0) WakeUp(pt0);
+ uc1:
 #endif
  return (TRUE);
 #ifdef COROUTINING