From b36ab0b0482c079971621e2acf67037883e29745 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 17 Jan 2008 17:55:51 -0500 Subject: [PATCH] Optimization --- core/generic/standard/standard.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor index 851a58ecd6..6cc7f7f3e8 100755 --- 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 )