Merge branch 'master' of git://factorcode.org/git/factor into propagation

[factor.git] / basis / compiler / tree / propagation / inlining / inlining.factor

diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor
index 016440c799ad55d8abce75b1195d83b2c3f04a3c..e6c63f149ad827bef29e21ac0f112097e56c8d67 100644 (file)
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@@ -110,7 +110,7 @@ SYMBOL: history
     word already-inlined? [ f ] [
         #call word splicing-body [
             word add-to-history
-            #call (>>body)
+            #call body<<
             #call propagate-body
         ] [ f ] if*
     ] if ;