From 2bf532263d9519bc466c6f0af34c6c4ef7792bf8 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 12 Sep 2008 05:36:06 -0500 Subject: [PATCH] Oops --- basis/compiler/tree/propagation/inlining/inlining.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor index 4c0b4107a4..a161b8f356 100644 --- 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) ;