From 54ad8f9dd9f17dfbe4adc853b9e3990d862ab5c3 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Thu, 18 Jun 2009 22:01:31 -0500 Subject: [PATCH] stupid mutable state --- basis/ui/ui.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor index aee19279a4..37ec4f35b1 100644 --- 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>