From 0d055060ade4c46be9b290f22bcf9338ecfdff2b Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sun, 25 Apr 2010 02:56:23 -0500 Subject: [PATCH] Bug fix in method inlining --- basis/compiler/tree/propagation/inlining/inlining.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/compiler/tree/propagation/inlining/inlining.factor b/basis/compiler/tree/propagation/inlining/inlining.factor index f33718a8b6..32e2fd0bd2 100644 --- 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 ] ;