From 292bd212f1c30a51f0191128d5a9cd2691c5ccf9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 28 Dec 2011 06:12:21 +0000
Subject: 	* boot/tokens.boot: Remove redundant renaming of REM. 
 loopBody and loopExit are not selectors. 	* interp/i-output.boot:
 Include sys-utility. 	* interp/sys-utility.boot (last): New macro. 
 (loopBody): Likewise. 	* interp/vmlisp.lisp (LASTNODE): Remove. 
 (LASTPAIR): Likewise. 	(last): Do not define here.

---
 src/interp/g-opt.boot | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/interp/g-opt.boot')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 880d088b..ef5b6a51 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -317,6 +317,8 @@ unnestWhen! x == f x where
       x is ['%seq,:.] =>
         for stmts in tails x.args repeat
           stmts.first := f first stmts
+      x is ['%repeat,:.] =>
+        x.loopBody := unnestWhen! x.loopBody
     x
 
 ++ Transform nested-to-tower.
-- 
cgit v1.2.3