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 4c46a4e9d2753822db17564270a153957bad2b9d
parent 1e21056afcdb46984e66b98ad84a0a05067e7402
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 27 Jan 2011 13:55:43 +0100

Forgot the second case
Diffstat:
Msrc64/apply.l | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src64/apply.l b/src64/apply.l @@ -168,10 +168,10 @@ ld Z 0 # No classes call methodEY_FCYZ # Found? jne msgErrYX # No - ld (S I) (EnvCls) # 'cls' - ld (S) (EnvKey) # 'key' - ld (EnvCls) Z # Set new - ld (EnvKey) Y # 'key' + xchg Z (S I) # 'cls' + xchg (S I) (EnvCls) + xchg Y (S) # 'key' + xchg (S) (EnvKey) # 'key' ld X (C) # Parameter list in X push (EnvBind) # Build bind frame link