From 5b662ac8fde7b75dac7100375fa8956f8c72a73e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 25 Jul 2023 22:58:11 -0700 Subject: compiler: code formatting. * stdlib/compiler.tl (compiler get-dreg): Fix indentation proble. * stdlib/optimize.tl (basic-block fill-treg-compacting-map): Likewise. --- stdlib/compiler.tl | 6 +++--- 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)))) -- cgit v1.2.3