Bug fix in method inlining

diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor
index f33718a8b6b7a4605a5968cc5c5813502d36daff..32e2fd0bd25e5171ba46884936e3d0349ad19b75 100644 (file)
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@@ -51,12 +51,12 @@ M: callable splicing-nodes splicing-body ;
 ERROR: bad-splitting class generic ;
 
 :: split-code ( class generic -- quot/f )
-    class generic method-for-class :> method
-    method [ class generic bad-splitting ] unless
+    class generic method :> my-method
+    my-method [ class generic bad-splitting ] unless
     generic dispatch# (picker) :> picker
     [
         picker call class instance?
-        [ method execute ]
+        [ my-method execute ]
         [ generic no-method ] if
     ] ;