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

vocab-browser: Improve predicate class listing

db4
Eduardo Cavazos 2008-09-04 10:50:22 -05:00
parent 19036845bd
commit fcd89748aa
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,18 +20,6 @@ IN: vocab-browser
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: pprint-class ( class -- )
[
\ TUPLE: pprint-word dup pprint-word
dup superclass tuple eq?
[ "<" text dup superclass pprint-word ] unless
<block "slots" word-prop [ pprint-slot ] each
block> pprint-;
]
with-pprint nl ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: word-effect-as-string ( word -- string ) : word-effect-as-string ( word -- string )
stack-effect dup stack-effect dup
[ effect>string ] [ effect>string ]
@ -71,7 +59,10 @@ IN: vocab-browser
[ drop ] [ drop ]
[ [
"Predicate Classes" $heading nl "Predicate Classes" $heading nl
[ pprint-class ] each ! [ pprint-class ] each
[ { [ ] [ superclass ] } 1arr ] map
{ "CLASS" "SUPERCLASS" } prefix
print-table
] ]
if if