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/optimize.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/optimize.tl')
| -rw-r--r-- | stdlib/optimize.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |