picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Msrc64/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?