steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bug fix in method inlining

db4
Daniel Ehrenberg 2010-04-25 02:56:23 -05:00
parent 23e78b8380
commit 0d055060ad
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/tree/propagation/inlining/inlining.factor
View File

@ -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
] ; ] ;