Optimization

2008-01-17 17:55:51 -05:00 · 2008-01-17 17:55:51 -05:00 · b36ab0b048
parent 6499fe8f80
commit b36ab0b048
1 changed files with 2 additions and 1 deletions
--- a/core/generic/standard/standard.factor
+++ b/core/generic/standard/standard.factor
@ -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 )