summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--stdlib/compiler.tl4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index 82450528..e2301296 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -914,8 +914,8 @@
((@else . @rest) (list else))))))
(dohash (loc treg trhash)
(let ((vb [vbhash loc]))
- (set vb.loc treg)
- me.(free-treg treg)))
+ (set vb.loc treg)))
+ me.(free-tregs tregs)
(if (plusp me.loop-nest)
(append (mapcar (ret ^(mov ,@1 (t 0))) (nreverse tregs)) ncode)
ncode)))