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

see: revert prettyprint change for error-classes (for now display tuple).

db4
John Benediktsson 2011-09-26 11:51:19 -07:00
parent 4f42c72012
commit b7813ed084
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/see/see.factor
View File

@ -191,8 +191,8 @@ M: array pprint-slot-name
: superclass. ( class -- ) : superclass. ( class -- )
superclass dup tuple eq? [ drop ] [ "<" text pprint-word ] if ; superclass dup tuple eq? [ drop ] [ "<" text pprint-word ] if ;
: pprint-tuple-class ( class definer -- ) M: tuple-class see-class*
<colon pprint-word <colon \ TUPLE: pprint-word
{ {
[ pprint-word ] [ pprint-word ]
[ superclass. ] [ superclass. ]
@ -201,12 +201,6 @@ M: array pprint-slot-name
} cleave } cleave
block> ; block> ;
M: tuple-class see-class*
\ TUPLE: pprint-tuple-class ;
M: error-class see-class* ( class -- )
\ ERROR: pprint-tuple-class ;
M: word see-class* drop ; M: word see-class* drop ;
M: builtin-class see-class* M: builtin-class see-class*