} at* ;
: add-using ( object -- )
- vocabulary>> using get [ conjoin ] [ drop ] if* ;
+ vocabulary>> using get [ adjoin ] [ drop ] if* ;
: ($values.) ( array -- )
[ bl ] [
: write-using ( vocab -- )
"USING:" write
- using get keys
+ using get members
{ "help.markup" "help.syntax" } append natural-sort remove
[ bl write ] each
" ;" print ;
] 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