! Copyright (C) 2008, 2009 Slava Pestov.\r
! See http://factorcode.org/license.txt for BSD license.\r
-USING: accessors models kernel ;\r
+USING: accessors models kernel sequences ;\r
IN: models.arrow\r
\r
-TUPLE: arrow < model model quot ;\r
+TUPLE: arrow < model quot ;\r
\r
: <arrow> ( model quot -- arrow )\r
f arrow new-model\r
swap >>quot\r
- over >>model\r
[ add-dependency ] keep ;\r
\r
M: arrow model-changed\r
[ [ value>> ] [ quot>> ] bi* call( old -- new ) ] [ nip ] 2bi\r
set-model ;\r
\r
-M: arrow model-activated [ model>> ] keep model-changed ;\r
+M: arrow model-activated [ dependencies>> ] keep [ model-changed ] curry each ;\r