Two quick fixes

db4
Slava Pestov 2009-04-21 16:10:42 -05:00
parent be12dc3e9f
commit 3d5995b3b4
2 changed files with 1 additions and 2 deletions

View File

@ -29,7 +29,6 @@ SYMBOL: check-optimizer?
normalize
propagate
cleanup
?check
dup run-escape-analysis? [
escape-analysis
unbox-tuples

View File

@ -170,7 +170,7 @@ SYMBOL: history
] if ;
: inline-word ( #call word -- ? )
dup specialized-def inline-word-def ;
dup def>> inline-word-def ;
: inline-method-body ( #call word -- ? )
2dup should-inline? [ inline-word ] [ 2drop f ] if ;