diff options
| -rw-r--r-- | stdlib/compiler.tl | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 52c9a908..002ef24d 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -218,7 +218,6 @@ (dreg-cntr 0) (sidx-cntr 0) (nlev 2) - (loop-nest 0) (tregs nil) (dreg (hash :eql-based)) (data (hash :eql-based)) @@ -988,9 +987,7 @@ (let ((vb [vbhash loc])) (set vb.loc treg))) me.(free-tregs tregs) - (if (plusp me.loop-nest) - (append (mapcar (ret ^(mov ,@1 (t 0))) (nreverse tregs)) ncode) - ncode))) + (append (mapcar (ret ^(mov ,@1 (t 0))) (nreverse tregs)) ncode))) code)) (defmeth compiler comp-let (me oreg env form) @@ -1588,14 +1585,10 @@ (let* ((treg me.(alloc-treg)) (ifrag me.(comp-progn treg env inits)) (*load-time* nil) - (tfrag (progn - (inc me.loop-nest) - (if test-p (ntp me.(compile treg env test))))) + (tfrag (if test-p (ntp me.(compile treg env test)))) (rfrag me.(comp-progn oreg env rets)) (nfrag (ntp me.(comp-progn treg env incs))) - (bfrag (prog1 - me.(comp-progn treg env body) - (dec me.loop-nest))) + (bfrag me.(comp-progn treg env body)) (lback (gensym "l")) (lskip (gensym "l")) (frags (build |