Fix printing of nested arrays

db4
Slava Pestov 2009-03-31 01:37:05 -05:00
parent 5b6948aaa5
commit 712b21b59e
2 changed files with 5 additions and 1 deletions

View File

@ -0,0 +1,4 @@
IN: smalltalk.printer.tests
USING: smalltalk.printer tools.test ;
[ "#((1 2) 'hi')" ] [ { { 1 2 } "hi" } smalltalk>string ] unit-test

View File

@ -20,7 +20,7 @@ GENERIC: array-element>string ( object -- string )
M: object array-element>string smalltalk>string ;
M: array array-element>string
[ smalltalk>string ] map " " join "(" ")" surround ;
[ array-element>string ] map " " join "(" ")" surround ;
M: array smalltalk>string
array-element>string "#" prepend ;