1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel models sequences ;
6 TUPLE: arrow < model quot ;
8 : <arrow> ( model quot -- arrow )
11 [ add-dependency ] keep ;
13 M: arrow model-changed
14 [ [ value>> ] [ quot>> ] bi* call( old -- new ) ]
17 M: arrow model-activated
18 [ dependencies>> ] keep [ model-changed ] curry each ;