From 41491701550523a649c256a10a4748030423f427 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 11 Sep 2016 12:15:05 -0700 Subject: 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. --- gencadr.txr | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gencadr.txr') 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)))) -- cgit v1.2.3