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

tools.vocabs.browser: use icons in more places

db4
Slava Pestov 2009-02-15 02:15:27 -06:00
parent 0c4c0410ef
commit 53eb92a967
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/tools/vocabs/browser/browser.factor
View File

@ -83,7 +83,7 @@ C: <vocab-author> vocab-author
"Tuple classes" $subheading "Tuple classes" $subheading
[ [
[ <$pretty-link> ] [ <$pretty-link> ]
[ superclass <$link> ] [ superclass <$pretty-link> ]
[ "slots" word-prop [ name>> ] map " " join <$snippet> ] [ "slots" word-prop [ name>> ] map " " join <$snippet> ]
tri 3array tri 3array
] map ] map
@ -96,7 +96,7 @@ C: <vocab-author> vocab-author
"Predicate classes" $subheading "Predicate classes" $subheading
[ [
[ <$pretty-link> ] [ <$pretty-link> ]
[ superclass <$link> ] [ superclass <$pretty-link> ]
bi 2array bi 2array
] map ] map
{ { $strong "Class" } { $strong "Superclass" } } prefix { { $strong "Class" } { $strong "Superclass" } } prefix
@ -150,7 +150,7 @@ C: <vocab-author> vocab-author
[ [
"Parsing words" $subheading "Parsing words" $subheading
[ [
[ <$link> ] [ <$pretty-link> ]
[ word-syntax dup [ <$snippet> ] when ] [ word-syntax dup [ <$snippet> ] when ]
bi 2array bi 2array
] map ] map
@ -190,7 +190,7 @@ C: <vocab-author> vocab-author
: describe-symbols ( words -- ) : describe-symbols ( words -- )
[ [
"Symbol words" $subheading "Symbol words" $subheading
[ <$link> 1array ] map $table [ <$pretty-link> 1array ] map $table
] unless-empty ; ] unless-empty ;
: $words ( words -- ) : $words ( words -- )