using the new H{ } make.

[factor.git] / core / classes / algebra / algebra.factor

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index 3610360b6f5ac95d2463fee709299cc808f5becb..7979cf08dcd233bd04d4abc64ad2da375fb82bc1 100644 (file)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2004, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs classes classes.private
-combinators kernel math math.order namespaces sequences sorting
-vectors words ;
+combinators kernel make math math.order namespaces sequences
+sorting vectors words ;
 FROM: classes => members ;
 RENAME: members sets => set-members
 IN: classes.algebra
@@ -285,4 +285,4 @@ ERROR: topological-sort-failed ;
     ] if-empty ;
 
 : flatten-class ( class -- assoc )
-    [ (flatten-class) ] H{ } make-assoc ;
+    [ (flatten-class) ] H{ } make ;