diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-11 12:15:05 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-11 12:15:05 -0700 |
| commit | 41491701550523a649c256a10a4748030423f427 (patch) | |
| tree | 22574c7e9ee094b10e3326a5b78002a33f0170c4 /gencadr.txr | |
| parent | b5b5e9ea911ed2e767662f416315ed3dbd0ded13 (diff) | |
| download | txr-41491701550523a649c256a10a4748030423f427.tar.gz txr-41491701550523a649c256a10a4748030423f427.tar.bz2 txr-41491701550523a649c256a10a4748030423f427.zip | |
rlet cleanup: replace safe with let or slet.
* gencadr.txr: Use let instead of useless rlet
that will just reduce to let.
* share/txr/stdlib/cadr.tl: Regenerated.
* share/txr/stdlib/place.tl (sys:var, car, cdr, errno):
Replace rlet with slet where safe.
(nthcdr): Replace useless let* with let.
Replace one safe-looking rlet with slet.
(dwim): Replace useless rlet with let.
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)))) |