From a5660aa55d7e1aa33ebeff76a7f49f0fb4bb7dc4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 2 Sep 2008 15:08:23 -0500
Subject: [PATCH] new accessors
---
extra/db/tuples/tuples-tests.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor
index f5b74b51c8..5dd3ec8ae0 100755
--- a/extra/db/tuples/tuples-tests.factor
+++ b/extra/db/tuples/tuples-tests.factor
@@ -41,9 +41,9 @@ SYMBOL: person4
[ ] [ person1 get insert-tuple ] unit-test
- [ 1 ] [ person1 get person-the-id ] unit-test
+ [ 1 ] [ person1 get the-id>> ] unit-test
- [ ] [ 200 person1 get set-person-the-number ] unit-test
+ [ ] [ person1 get 200 >>the-number drop ] unit-test
[ ] [ person1 get update-tuple ] unit-test