stupid mutable state

2009-06-18 22:01:31 -05:00 · 2009-06-18 22:01:31 -05:00 · d4ce348c50
parent e4ba9315a6
commit d4ce348c50
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@ -198,7 +198,7 @@ PRIVATE>
    windows get empty? not ;

 : ?attributes ( gadget title/attributes -- attributes )
-    dup string? [ world-attributes new swap >>title ] when
+    dup string? [ world-attributes new swap >>title ] [ clone ] if
    swap [ [ [ 1array ] [ f ] if* ] curry unless* ] curry change-gadgets ;

 PRIVATE>