diff options
| -rw-r--r-- | stdlib/compiler.tl | 4 |
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))) |