Updating code for make and fry changes

[factor.git] / extra / graph-theory / sparse / sparse.factor

diff --git a/extra/graph-theory/sparse/sparse.factor b/extra/graph-theory/sparse/sparse.factor
index 33c5505f0a89c24cd1f00e1870b183c92a249f78..5c6365b563944ba8a67d030425425fdec974cc91 100644 (file)
--- a/extra/graph-theory/sparse/sparse.factor
+++ b/extra/graph-theory/sparse/sparse.factor
@@ -12,7 +12,7 @@ TUPLE: sparse-graph alist ;
 
 : >sparse-graph ( graph -- sparse-graph )
     [ vertices ] keep
-    '[ dup , adjlist 2array ] map >hashtable sparse-graph boa ;
+    '[ dup _ adjlist 2array ] map >hashtable sparse-graph boa ;
 
 INSTANCE: sparse-graph graph