diff options
Diffstat (limited to 'gencadr.txr')
| -rw-r--r-- | gencadr.txr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gencadr.txr b/gencadr.txr index 84df87cc..7e96453a 100644 --- a/gencadr.txr +++ b/gencadr.txr @@ -90,7 +90,7 @@ void cadr_init(void); (defplace (c@{ad}r cell) body (getter setter (with-gensyms (cell-sym) - ^(rlet ((,cell-sym (c@{ad [1..:]}r ,cell))) + ^(let ((,cell-sym (c@{ad [1..:]}r ,cell))) (macrolet ((,getter () ^(c@{ad [0]}r ,',cell-sym)) (,setter (val) ^(sys:rplac@{ad [0]} ,',cell-sym ,val))) ,body)))) |