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

see: more information on built-in classes.

John Benediktsson 2012-07-27 14:59:49 -07:00
parent de77e604e6
commit 09ee82e56d
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/see/see.factor
View File

@ -6,8 +6,8 @@ classes.tuple classes.union combinators definitions effects generic
generic.single generic.standard generic.hook io io.pathnames
io.streams.string io.styles kernel make namespaces prettyprint
prettyprint.backend prettyprint.config prettyprint.custom
prettyprint.sections sequences sets sorting strings summary words
words.symbol words.constant words.alias vocabs slots ;
prettyprint.sections sequences sets slots sorting strings summary
words words.symbol words.constant words.alias vocabs ;
FROM: namespaces => set ;
FROM: classes => members ;
RENAME: members sets => set-members
@ -204,7 +204,12 @@ M: tuple-class see-class*
M: word see-class* drop ;
M: builtin-class see-class*
drop "! Built-in class" comment. ;
"! Built-in class" comment.
<block
\ PRIMITIVE: pprint-word
[ pprint-word ]
[ <block "slots" word-prop [ pprint-slot ] each pprint-; block> ] bi
block> ;
: see-class ( class -- )
dup class? [