new accessors

2008-09-02 15:08:23 -05:00 · 2008-09-02 15:08:23 -05:00 · a5660aa55d
parent b7c83ff83e
commit a5660aa55d
1 changed files with 2 additions and 2 deletions
--- 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