diff options
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index bf47eecb..b030f3b3 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1073,9 +1073,9 @@ middleEndExpand: %Form -> %Form middleEndExpand x == isAtomicForm x => x [op,:args] := x + IDENTP op and (fun := getOpcodeExpander op) => apply(fun,x,nil) op in $middleEndMacroList => middleEndExpand MACROEXPAND_-1 x - IDENTP op and (fun := getOpcodeExpander op) => apply(fun,x,nil) a := middleEndExpand op b := middleEndExpand args EQ(a,op) and EQ(b,args) => x |