From 85470b5eda95a0ca153caab7b1c03afd3d69a3f6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 23 Apr 2018 06:17:03 -0700 Subject: compiler: unnecessary let*. * share/txr/stdlib/compiler.tl (compiler get-dreg): A let* with just one variable in it is changed to let. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 087e9848..2a9f165c 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -174,7 +174,7 @@ ((((null atom))) '(t 0)) (((dreg [me.dreg atom])) dreg) ((((< me.dreg-cntr %lev-size%))) - (let* ((dreg ^(d ,(pinc me.dreg-cntr)))) + (let ((dreg ^(d ,(pinc me.dreg-cntr)))) (set [me.data (cadr dreg)] atom) (set [me.dreg atom] dreg))) (t (compile-error me.last-form "code too complex: out of registers")))) -- cgit v1.2.3