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

Change inlining heuristic so that it behaves the same with dip and >r/r>

db4
Slava Pestov 2008-11-24 05:46:26 -06:00
parent a264adc74c
commit 1fa819191d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -85,6 +85,8 @@ DEFER: (flat-length)
: word-flat-length ( word -- n ) : word-flat-length ( word -- n )
{ {
! special-case
{ [ dup { dip 2dip 3dip } memq? ] [ drop 1 ] }
! not inline ! not inline
{ [ dup inline? not ] [ drop 1 ] } { [ dup inline? not ] [ drop 1 ] }
! recursive and inline ! recursive and inline