fix HBREG mess

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@89 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-18 18:24:00 +00:00
parent e56a11ce3c
commit d9edb0d992

View File

@ -446,7 +446,7 @@ p_execute_within(void)
/* Wow, we're gonna cut!!! */ /* Wow, we're gonna cut!!! */
B = pt0; B = pt0;
#endif /* YAPOR */ #endif /* YAPOR */
HBREG = PROTECT_FROZEN_H(B); HB = PROTECT_FROZEN_H(B);
} }
return(TRUE); return(TRUE);
} else if (a == AtomFail || a == AtomFalse) } else if (a == AtomFail || a == AtomFalse)