Fix

2008-08-11 02:49:43 -05:00 · 2008-08-11 02:49:43 -05:00 · ed848621a3
parent 5e9a323ac1
commit ed848621a3
1 changed files with 1 additions and 0 deletions
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@ -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 )