diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-23 06:17:03 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-23 06:17:03 -0700 |
| commit | 117999ea710e748f2af6ca1c835dff03cc3db4c1 (patch) | |
| tree | 55a172585db13db5876b860e219a95b2d0576ee2 /share | |
| parent | 47cd15b970892e2dae29e825fadaf31c6d84835d (diff) | |
| download | txr-117999ea710e748f2af6ca1c835dff03cc3db4c1.tar.gz txr-117999ea710e748f2af6ca1c835dff03cc3db4c1.tar.bz2 txr-117999ea710e748f2af6ca1c835dff03cc3db4c1.zip | |
compiler: unnecessary let*.
* share/txr/stdlib/compiler.tl (compiler get-dreg): A let*
with just one variable in it is changed to let.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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")))) |