summary: change default summary
parent
563ecbd871
commit
1ba83c986c
|
@ -8,7 +8,7 @@ f describe
|
|||
H{ } describe
|
||||
H{ } describe
|
||||
|
||||
[ "fixnum instance\n\n" ] [ [ 3 describe ] with-string-writer ] unit-test
|
||||
[ "fixnum\n\n" ] [ [ 3 describe ] with-string-writer ] unit-test
|
||||
|
||||
[ ] [ H{ } clone inspect ] unit-test
|
||||
|
||||
|
|
|
@ -7,7 +7,7 @@ IN: summary
|
|||
GENERIC: summary ( object -- string )
|
||||
|
||||
: object-summary ( object -- string )
|
||||
class name>> " instance" append ;
|
||||
class name>> ;
|
||||
|
||||
M: object summary object-summary ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue