diff options
Diffstat (limited to 'stdlib')
| -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)))) |