[ condition>> call( -- ? ) ]
[ thread>> self = not ] bi or
[ [ value>> ] dip set-model f ]
- [ 2drop t ] if 100 milliseconds sleep
+ [ 2drop t ] if 100 milliseconds sleep
] 2curry "models.conditional" spawn-server
] keep thread<< ;
: <conditional> ( condition -- model )
f conditional new-model swap >>condition ;
-M: conditional model-activated [ model>> ] keep model-changed ;
\ No newline at end of file
+M: conditional model-activated [ model>> ] keep model-changed ;