summary: change default summary

db4
Slava Pestov 2009-09-23 20:22:25 -05:00
parent 563ecbd871
commit 1ba83c986c
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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 ;