koszul: Remove make-assoc

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index 8fdf1559390a3b2564eb4613ea1abcf554e088eb..ead78200fd5ed2f442ffedf0b192bcb56be9c5df 100644 (file)
--- a/extra/koszul/koszul.factor
+++ b/extra/koszul/koszul.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2006, 2007 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays hashtables assocs io kernel locals math
-math.vectors math.matrices math.matrices.elimination namespaces
-parser prettyprint sequences words combinators math.parser
-splitting sorting shuffle sets math.order ;
+USING: accessors arrays assocs combinators fry hashtables io
+kernel locals make math math.matrices math.matrices.elimination
+math.order math.parser math.vectors namespaces prettyprint
+sequences sets shuffle sorting splitting ;
 FROM: namespaces => set ;
 IN: koszul
 
@@ -89,14 +89,14 @@ SYMBOL: terms
 
 : wedge ( x y -- x.y )
     [ >alt ] bi@ [
-        swap [
+        swap building get '[
             [
                 2swap [
-                    swapd * -rot (wedge) +@
+                    swapd * -rot (wedge) _ at+
                 ] 2keep
             ] assoc-each 2drop
         ] curry assoc-each
-    ] H{ } make-assoc canonicalize ;
+    ] H{ } make canonicalize ;
 
 ! Differential
 SYMBOL: boundaries