From 843eb15522c926c1dfcd8a943da506a067c4f4c6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 21:58:34 -0500
Subject: [PATCH] new accessors
---
extra/classes/tuple/lib/lib.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/classes/tuple/lib/lib.factor b/extra/classes/tuple/lib/lib.factor
index 509843b9cd..a234ce0d41 100755
--- a/extra/classes/tuple/lib/lib.factor
+++ b/extra/classes/tuple/lib/lib.factor
@@ -1,11 +1,11 @@
! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel macros sequences slots words classes.tuple
-quotations combinators ;
+quotations combinators accessors ;
IN: classes.tuple.lib
: reader-slots ( seq -- quot )
- [ slot-spec-reader 1quotation ] map [ cleave ] curry ;
+ [ reader>> 1quotation ] map [ cleave ] curry ;
MACRO: >tuple< ( class -- )
all-slots rest-slice reader-slots ;