Optimization

db4
Slava Pestov 2008-01-17 17:55:51 -05:00
parent 6499fe8f80
commit b36ab0b048
1 changed files with 2 additions and 1 deletions

View File

@ -139,7 +139,8 @@ TUPLE: no-method object generic ;
M: standard-combination perform-combination
standard-combination-# (dispatch#) [
standard-methods single-combination
[ standard-methods ] keep "inline" word-prop
[ small-generic ] [ single-combination ] if
] with-variable ;
: default-hook-method ( word -- pair )