steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

stupid mutable state

Joe Groff 2009-06-18 22:01:31 -05:00
parent e4ba9315a6
commit d4ce348c50
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/ui.factor
View File

@ -198,7 +198,7 @@ PRIVATE>
windows get empty? not ; windows get empty? not ;
: ?attributes ( gadget title/attributes -- attributes ) : ?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 ; swap [ [ [ 1array ] [ f ] if* ] curry unless* ] curry change-gadgets ;
PRIVATE> PRIVATE>