Oops

2008-09-12 05:36:06 -05:00 · 2008-09-12 05:36:06 -05:00 · 2bf532263d
parent 40da49bef5
commit 2bf532263d
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@ -19,7 +19,7 @@ M: word splicing-nodes
    [ [ in-d>> ] [ out-d>> ] bi ] dip #call 1array ;

 M: quotation splicing-nodes
-    build-sub-tree normalize analyze-recursive ;
+    build-sub-tree analyze-recursive normalize ;

 : propagate-body ( #call -- )
    body>> (propagate) ;