Language change: tuple slot setter words with stack effect ( value object -- ) are...

[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 4a227cfa7717b003377e7e2f4f58c25c4533535d..5375ff68819b246ebc1ec373aaee31cfd019f940 100644 (file)
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@@ -90,7 +90,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 ;