diff options
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) |