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 generic.single generic.standard generic.hook io io.pathnames
io.streams.string io.styles kernel make namespaces prettyprint io.streams.string io.styles kernel make namespaces prettyprint
prettyprint.backend prettyprint.config prettyprint.custom prettyprint.backend prettyprint.config prettyprint.custom
prettyprint.sections sequences sets sorting strings summary words prettyprint.sections sequences sets slots sorting strings summary
words.symbol words.constant words.alias vocabs slots ; words words.symbol words.constant words.alias vocabs ;
FROM: namespaces => set ; FROM: namespaces => set ;
FROM: classes => members ; FROM: classes => members ;
RENAME: members sets => set-members RENAME: members sets => set-members
@ -204,7 +204,12 @@ M: tuple-class see-class*
M: word see-class* drop ; M: word see-class* drop ;
M: builtin-class see-class* 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 -- ) : see-class ( class -- )
dup class? [ dup class? [