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 a7f8f5fdaf2acdb897e37e206cfd618ac6b0fcfd
parent 7669c13b8ee9263e654110cb40302261770218ad
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 20 Apr 2011 09:03:38 +0200

Improper 'Meth' access
Diffstat:
Msrc64/apply.l | 6+++---
Msrc64/flow.l | 4++--
2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src64/apply.l b/src64/apply.l @@ -1,4 +1,4 @@ -# 21mar11abu +# 20apr11abu # (c) Software Lab. Alexander Burger (code 'applyXYZ_E 0) @@ -180,7 +180,7 @@ ret end ld A (C) # Else symbolic, get value - cmp A doMeth # Method? + cmp A (Meth) # Method? if eq # Yes sub Y I # First arg ld E (Y) # Get object @@ -534,7 +534,7 @@ ret end ld A (C) # Else symbolic, get value - cmp A doMeth # Method? + cmp A (Meth) # Method? if eq # Yes sub Y I # First arg ld E ((Y)) # Get object diff --git a/src64/flow.l b/src64/flow.l @@ -1,4 +1,4 @@ -# 06apr11abu +# 20apr11abu # (c) Software Lab. Alexander Burger (code 'redefMsgEC) @@ -566,7 +566,7 @@ cmp E TSym # 'msg' is T? if ne # No push C # Save class - ld C doMeth # Get 'meth' code pointer + ld C (Meth) # Get 'meth' code pointer call redefineCEX # Redefine pop C end