steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.scaffold: more use of hash-sets.

db4
John Benediktsson 2013-03-10 10:02:53 -07:00
parent 229e85459e
commit 4f0c404d87
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tools/scaffold/scaffold.factor
View File

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