steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove unecessary slot from arrow models

db4
Jon Harper 2010-11-14 17:20:19 +01:00 committed by Slava Pestov
parent 6994e6c8ee
commit b207482d38
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/models/arrow/arrow.factor
View File

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