picolisp

commit e9e7939ac56e338a6abf53f21d00c79acdfd4849
parent 1887c0e6ac9547d4ba33c91ed185f25ea5fff323
Author: Commit-Bot <unknown>
Date:   Fri, 11 Jun 2010 09:58:12 +0000

Automatic commit from picoLisp.tgz, From: Fri, 11 Jun 2010 09:58:12 GMT
Diffstat:
M
src64/flow.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/flow.l b/src64/flow.l
@@ -2597,7 +2597,7 @@
             ld (StkLimit) A
             load (EnvCo) (EnvMid) (Y (pack -II "-(EnvMid-EnvCo)"))  # Restore environment
             ld X (EnvBind)  # Reversed bindings
-            ld C (Z III)  # Main bindings
+            ld C (Z (pack III "+(EnvBind-EnvCo)"))  # Main bindings
             do
                null X  # More reversed bindings?
             while nz  # Yes
@@ -2798,7 +2798,7 @@
    null X  # Any?
    if nz  # Yes
       do
-         cmp X (Z III)  # Reached main routine's bindings?
+         cmp X (Z (pack III "+(EnvBind-EnvCo)"))  # Reached main routine's bindings?
       while ne  # No
          ld Y X  # Keep bind frame in Y
          null (X -I)  # Env swap zero?