Slava Pestov 2008-08-11 02:49:43 -05:00
parent 5e9a323ac1
commit ed848621a3
1 changed files with 1 additions and 0 deletions

View File

@ -29,6 +29,7 @@ M: integer effect>string number>string ;
M: pair effect>string first2 [ effect>string ] bi@ ": " swap 3append ;
: stack-picture ( seq -- string )
dup integer? [ "object" <repetition> ] when
[ [ effect>string % CHAR: \s , ] each ] "" make ;
M: effect effect>string ( effect -- string )