picolisp

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

Improper 'Meth' access
Diffstat:
M
src64/apply.l
 | 
6
+++---
M
src64/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