Don't compile predicate engines since there's no gain

db4
Slava Pestov 2009-04-27 14:10:12 -05:00
parent bf0e8606a8
commit 5ff2c2e2bf
1 changed files with 5 additions and 1 deletions

View File

@ -106,7 +106,11 @@ M: predicate-engine-word no-compile? "owner-generic" word-prop no-compile? ;
] if ;
: optimize? ( word -- ? )
{ [ contains-breakpoints? ] [ single-generic? ] } 1|| not ;
{
[ predicate-engine-word? ]
[ contains-breakpoints? ]
[ single-generic? ]
} 1|| not ;
: frontend ( word -- nodes )
#! If the word contains breakpoints, don't optimize it, since