fix unix environ

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@293 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-14 22:26:53 +00:00
parent 095e851b00
commit 4414acbdf9
10 changed files with 48 additions and 29 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -335,7 +335,8 @@ Yapcut_fail(void)
 {
  BACKUP_B();

-  B = B->cp_b; /* cut_fail */
+  B = B->cp_b;  /* cut_fail */
+  HB = B->cp_h; /* cut_fail */

  RECOVER_B();
  return(FALSE);
@@ -347,6 +348,7 @@ Yapcut_succeed(void)
  BACKUP_B();

  B = B->cp_b;
+  HB = B->cp_h;

  RECOVER_B();
  return(TRUE);