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:
parent
e56a11ce3c
commit
d9edb0d992
2
C/exec.c
2
C/exec.c
@ -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)
|
||||||
|
Reference in New Issue
Block a user