From 6c4c36126a04d06b4ea5dace6d680f0f47df74ec Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 24 Jul 2006 04:34:59 +0000
Subject: [PATCH] Faster make-class<cache

---
 library/generic/generic.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/library/generic/generic.factor b/library/generic/generic.factor
index 763ec0a966..37a29f448e 100644
--- a/library/generic/generic.factor
+++ b/library/generic/generic.factor
@@ -71,11 +71,13 @@ SYMBOL: class<cache
 : class< ( cls1 cls2 -- ? )
     class<cache get [ hash hash-member? ] [ (class<) ] if* ;
 
-: smaller-classes ( class -- )
-    classes [ swap (class<) ] subset-with ;
+: smaller-classes ( class seq -- )
+    [ swap (class<) ] subset-with ;
 
 : make-class<cache ( -- hash )
-    classes [ dup smaller-classes [ dup ] map>hash ] map>hash ;
+    classes dup [
+        2dup swap smaller-classes [ dup ] map>hash
+    ] map>hash nip ;
 
 : with-class<cache ( quot -- )
     [ make-class<cache class<cache set call ] with-scope ;