From 48d55f8e89cdc22afbf661b823bf059d231b0db4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 21 Jun 2010 15:05:11 +0000
Subject: 	* interp/c-util.boot (middleEndExpand): Give it another macro 
 expansion pass after new opcode expansion.

---
 src/interp/c-util.boot | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index d3ed9926..ab80ac63 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1104,7 +1104,8 @@ middleEndExpand x ==
   IDENTP x and (x' := x has %Rename) => x'
   isAtomicForm x => x
   [op,:args] := x
-  IDENTP op and (fun := getOpcodeExpander op) => apply(fun,x,nil)
+  IDENTP op and (fun := getOpcodeExpander op) =>
+    middleEndExpand apply(fun,x,nil)
   op in $middleEndMacroList =>
     middleEndExpand MACROEXPAND_-1 x
   a := middleEndExpand op
-- 
cgit v1.2.3