stupid mutable state
parent
ff742a7d81
commit
54ad8f9dd9
|
@ -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>
|
||||||
|
|
Loading…
Reference in New Issue