new accessors

diff --git a/basis/concurrency/locks/locks-tests.factor b/basis/concurrency/locks/locks-tests.factor
index 659bd2714e19c9483ea20c2bfab443a0061e330d..92dede1655ceabe3539da5ec6690ac75eddf99b9 100755 (executable)
--- a/basis/concurrency/locks/locks-tests.factor
+++ b/basis/concurrency/locks/locks-tests.factor
@@ -1,7 +1,7 @@
 IN: concurrency.locks.tests\r
 USING: tools.test concurrency.locks concurrency.count-downs\r
 concurrency.messaging concurrency.mailboxes locals kernel\r
-threads sequences calendar ;\r
+threads sequences calendar accessors ;\r
 \r
 :: lock-test-0 ( -- )\r
     [let | v [ V{ } clone ]\r
@@ -174,7 +174,7 @@ threads sequences calendar ;
     ] ;\r
 \r
 [ lock-timeout-test ] [\r
-    linked-error-thread thread-name "Lock timeout-er" =\r
+    linked-error-thread name>> "Lock timeout-er" =\r
 ] must-fail-with\r
 \r
 :: read/write-test ( -- )\r

diff --git a/basis/concurrency/messaging/messaging.factor b/basis/concurrency/messaging/messaging.factor
index 810e4430f19a5ad75dd24186bd3faebc45ae802d..7173e8f408fe42b61c07db17090782cd04641eb4 100755 (executable)
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@@ -10,8 +10,8 @@ IN: concurrency.messaging
 GENERIC: send ( message thread -- )\r
 \r
 : mailbox-of ( thread -- mailbox )\r
-    dup thread-mailbox [ ] [\r
-        <mailbox> dup rot set-thread-mailbox\r
+    dup mailbox>> [ ] [\r
+        <mailbox> swap >>mailbox\r
     ] ?if ;\r
 \r
 M: thread send ( message thread -- )\r