From 5c495d40e538a531e93728a80c23e089a0eb7ccd Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Sun, 14 Nov 2010 17:20:19 +0100
Subject: [PATCH] Remove unecessary slot from arrow models

---
 basis/models/arrow/arrow.factor | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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