1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors models kernel assocs ;
6 TUPLE: mapping < model assoc ;
8 : <mapping> ( models -- mapping )
10 over values >>dependencies
13 M: mapping model-changed
14 nip [ assoc>> [ value>> ] assoc-map ] keep set-model ;
16 M: mapping model-activated
19 M: mapping update-model
20 [ value>> ] [ assoc>> ] bi
21 [ swapd at set-model ] curry assoc-each ;