vocab-browser: Display symbols separate from words

2008-09-04 09:07:53 -05:00 · 2008-09-04 09:07:53 -05:00 · 19036845bd
parent 305a9713b9
commit 19036845bd
1 changed files with 10 additions and 1 deletions
--- a/unfinished/vocab-browser/vocab-browser.factor
+++ b/unfinished/vocab-browser/vocab-browser.factor
@ -75,6 +75,14 @@ IN: vocab-browser
    ]
  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 empty?
@ -92,6 +100,7 @@ IN: vocab-browser
    [ builtin-class?   not ] filter
    [ tuple-class?     not ] filter
    [ generic?         not ] filter
+    [ symbol?          not ] filter
    [ word?                ] filter
    natural-sort
    [ [ ] [ word-effect-as-string ] bi 2array ] map