commit c9bc51631272c590d1faa19d49e1ac1690401ccb parent 62542ee689f00399ef1b58573134eb23c5cc4cfd Author: Alexander Burger <abu@software-lab.de> Date: Tue, 3 Jan 2012 19:47:21 +0100 Corrected: 'var' to use 'put' again Diffstat:
| M | ersatz/lib.l | | | 4 | ++-- |
| M | lib.l | | | 4 | ++-- |
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l @@ -219,8 +219,8 @@ # Class variables (de var X (if (pair (car X)) - (def (cdar X) (caar X) (cdr X)) - (def *Class (car X) (cdr X)) ) ) + (put (cdar X) (caar X) (cdr X)) + (put *Class (car X) (cdr X)) ) ) (de var: X (apply meta X This) ) diff --git a/lib.l b/lib.l @@ -266,8 +266,8 @@ # Class variables (de var X (if (pair (car X)) - (def (cdar X) (caar X) (cdr X)) - (def *Class (car X) (cdr X)) ) ) + (put (cdar X) (caar X) (cdr X)) + (put *Class (car X) (cdr X)) ) ) (de var: X (apply meta X This) )