From 52acaa47e725ec0679b6a5750e65074c17c5bd28 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:47:07 -0500
Subject: [PATCH] new accessors

---
 basis/models/compose/compose.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/models/compose/compose.factor b/basis/models/compose/compose.factor
index 015986fad0..a2c3385248 100755
--- a/basis/models/compose/compose.factor
+++ b/basis/models/compose/compose.factor
@@ -18,12 +18,12 @@ TUPLE: compose < model ;
 
 M: compose model-changed
     nip
-    [ [ model-value ] composed-value ] keep set-model ;
+    [ [ value>> ] composed-value ] keep set-model ;
 
 M: compose model-activated dup model-changed ;
 
 M: compose update-model
-    dup model-value swap [ set-model ] set-composed-value ;
+    dup value>> swap [ set-model ] set-composed-value ;
 
 M: compose range-value
     [ range-value ] composed-value ;