diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-07-25 22:58:11 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-07-25 22:58:11 -0700 |
| commit | 5b662ac8fde7b75dac7100375fa8956f8c72a73e (patch) | |
| tree | f35cd22da14206e2b317c7e25254d1e44913050d /stdlib/compiler.tl | |
| parent | 552b75c3572b11e37581c2c5ac359319af6941f5 (diff) | |
| download | txr-5b662ac8fde7b75dac7100375fa8956f8c72a73e.tar.gz txr-5b662ac8fde7b75dac7100375fa8956f8c72a73e.tar.bz2 txr-5b662ac8fde7b75dac7100375fa8956f8c72a73e.zip | |
compiler: code formatting.
* stdlib/compiler.tl (compiler get-dreg): Fix
indentation proble.
* stdlib/optimize.tl (basic-block fill-treg-compacting-map):
Likewise.
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index df54ba33..fd855f67 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -379,9 +379,9 @@ (((dreg [me.dreg dobj])) dreg) ((((< me.dreg-cntr %lev-size%))) (let ((dreg ^(d ,(pinc me.dreg-cntr)))) - (set me.datavec nil - [me.data (cadr dreg)] dobj - [me.dreg dobj] dreg))) + (set me.datavec nil + [me.data (cadr dreg)] dobj + [me.dreg dobj] dreg))) (t (compile-error me.last-form "code too complex: too many literals"))))) (defmeth compiler alloc-dreg (me) |