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

vocab-browser: Display symbols separate from words

db4
Eduardo Cavazos 2008-09-04 09:07:53 -05:00
parent 305a9713b9
commit 19036845bd
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
unfinished/vocab-browser/vocab-browser.factor
View File

@ -74,7 +74,15 @@ IN: vocab-browser
[ pprint-class ] each [ pprint-class ] each
] ]
if if
dup vocab words [ class? not ] filter [ symbol? ] filter natural-sort
dup empty?
[ drop ]
[
"Symbols" $heading nl
print-seq
]
if
dup vocab words [ generic? ] filter natural-sort dup vocab words [ generic? ] filter natural-sort
dup empty? dup empty?
@ -92,6 +100,7 @@ IN: vocab-browser
[ builtin-class? not ] filter [ builtin-class? not ] filter
[ tuple-class? not ] filter [ tuple-class? not ] filter
[ generic? not ] filter [ generic? not ] filter
[ symbol? not ] filter
[ word? ] filter [ word? ] filter
natural-sort natural-sort
[ [ ] [ word-effect-as-string ] bi 2array ] map [ [ ] [ word-effect-as-string ] bi 2array ] map