]> gitweb.factorcode.org Git - factor.git/commitdiff
tools.scaffold: more use of hash-sets.
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 10 Mar 2013 17:02:53 +0000 (10:02 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 10 Mar 2013 17:02:53 +0000 (10:02 -0700)
basis/tools/scaffold/scaffold.factor

index 2b3461eb69ae04aa6fd500e8d08022498cacca93..7009636107aa5491951ff7bce8a25c8152f4125a 100644 (file)
@@ -142,7 +142,7 @@ ERROR: vocab-name-contains-dot path ;
     } at* ;
 
 : add-using ( object -- )
-    vocabulary>> using get [ conjoin ] [ drop ] if* ;
+    vocabulary>> using get [ adjoin ] [ drop ] if* ;
 
 : ($values.) ( array -- )
     [ bl ] [
@@ -224,7 +224,7 @@ ERROR: vocab-name-contains-dot path ;
 
 : write-using ( vocab -- )
     "USING:" write
-    using get keys
+    using get members
     { "help.markup" "help.syntax" } append natural-sort remove
     [ bl write ] each
     " ;" print ;
@@ -237,7 +237,7 @@ ERROR: vocab-name-contains-dot path ;
     ] with-output-stream ;
 
 : with-scaffold ( quot -- )
-    [ H{ } clone using ] dip with-variable ; inline
+    [ HS{ } clone using ] dip with-variable ; inline
 
 : link-vocab ( vocab -- )
     check-vocab