scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adjust top of stack as well.

This commit is contained in:
mainzelm 2001-12-04 13:06:12 +00:00
parent 136e313af7
commit 8bba3a13e1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/vm/gc-root.scm
View File

@ -68,6 +68,7 @@
(let ((okay? (address= *external-root-stack* (let ((okay? (address= *external-root-stack*
*external-root-stack-base*))) *external-root-stack-base*)))
(set! *external-root-stack-base* old-base) (set! *external-root-stack-base* old-base)
(set! *external-root-stack* old-base)
okay?)) okay?))
;---------------- ;----------------