Bug fix in method inlining
parent
23e78b8380
commit
0d055060ad
|
@ -51,12 +51,12 @@ M: callable splicing-nodes splicing-body ;
|
||||||
ERROR: bad-splitting class generic ;
|
ERROR: bad-splitting class generic ;
|
||||||
|
|
||||||
:: split-code ( class generic -- quot/f )
|
:: split-code ( class generic -- quot/f )
|
||||||
class generic method-for-class :> method
|
class generic method :> my-method
|
||||||
method [ class generic bad-splitting ] unless
|
my-method [ class generic bad-splitting ] unless
|
||||||
generic dispatch# (picker) :> picker
|
generic dispatch# (picker) :> picker
|
||||||
[
|
[
|
||||||
picker call class instance?
|
picker call class instance?
|
||||||
[ method execute ]
|
[ my-method execute ]
|
||||||
[ generic no-method ] if
|
[ generic no-method ] if
|
||||||
] ;
|
] ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue