Adjust top of stack as well.

2001-12-04 13:06:12 +00:00 · 2001-12-04 13:06:12 +00:00 · 8bba3a13e1
parent 136e313af7
commit 8bba3a13e1
1 changed files with 1 additions and 0 deletions
--- a/scheme/vm/gc-root.scm
+++ b/scheme/vm/gc-root.scm
@ -68,6 +68,7 @@
  (let ((okay? (address= *external-root-stack*
 			 *external-root-stack-base*)))
    (set! *external-root-stack-base* old-base)
+    (set! *external-root-stack* old-base)
    okay?))

 ;----------------