From bef502adfcb19ea62ce0e5171d14ae06c5e5020e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 2 Sep 2008 01:56:06 -0500
Subject: [PATCH] ENABLE NEW ACCESSORS
---
core/classes/tuple/tuple.factor | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 8a9d230a7c..80ccc8fd9f 100755
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -3,8 +3,8 @@
USING: arrays definitions hashtables kernel kernel.private math
namespaces sequences sequences.private strings vectors words
quotations memory combinators generic classes classes.algebra
-classes.builtin classes.private slots.deprecated slots.private
-slots compiler.units math.private accessors assocs effects ;
+classes.builtin classes.private slots.private slots
+compiler.units math.private accessors assocs effects ;
IN: classes.tuple
PREDICATE: tuple-class < class
@@ -139,13 +139,11 @@ ERROR: bad-superclass class ;
dup tuple-prototype "prototype" set-word-prop ;
: finalize-tuple-slots ( class slots -- slots )
- over superclass-size 2 + finalize-slots deprecated-slots ;
+ swap superclass-size 2 + finalize-slots ;
: define-tuple-slots ( class -- )
dup dup "slots" word-prop finalize-tuple-slots
- [ define-accessors ] ! new
- [ define-slots ] ! old
- 2bi ;
+ define-accessors ;
: make-tuple-layout ( class -- layout )
[ ]