From 4f0c404d87f10f413f9067a5bb3a8018b5dbddf9 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 10 Mar 2013 10:02:53 -0700 Subject: [PATCH] tools.scaffold: more use of hash-sets. --- basis/tools/scaffold/scaffold.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor index 2b3461eb69..7009636107 100644 --- a/basis/tools/scaffold/scaffold.factor +++ b/basis/tools/scaffold/scaffold.factor @@ -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