[Scsh-checkins] CVS: scsh-0.6/scheme/vm gc-root.scm,1.1.1.1,1.2

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scheme/vm
In directory usw-pr-cvs1:/tmp/cvs-serv31959

Modified Files:
        gc-root.scm 
Log Message:
Adjust top of stack as well.


Index: gc-root.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/vm/gc-root.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** gc-root.scm 1999/09/14 12:44:59     1.1.1.1
--- gc-root.scm 2001/12/04 13:06:12     1.2
***************
*** 69,72 ****
--- 69,73 ----
                         *external-root-stack-base*)))
      (set! *external-root-stack-base* old-base)
+     (set! *external-root-stack* old-base)
      okay?))