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 | |
| 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.
| -rw-r--r-- | stdlib/compiler.tl | 6 | ||||
| -rw-r--r-- | stdlib/optimize.tl | 2 |
2 files changed, 4 insertions, 4 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) diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 29fe0a64..ee9257ac 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -739,7 +739,7 @@ (if-match (t @nil) reg (set [map reg] ^(t ,(len map)))))) (add-tregs (args) - [mapcar add-treg args])) + [mapcar add-treg args])) (iflet ((cl bl.closer)) (let ((cloinsn (car (last cl.insns)))) (add-tregs (cddr cloinsn)))) |