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

2008-11-24 05:46:26 -06:00 · 2008-11-24 05:46:26 -06:00 · 1fa819191d
parent a264adc74c
commit 1fa819191d
1 changed files with 2 additions and 0 deletions
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@ -85,6 +85,8 @@ DEFER: (flat-length)

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