steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-30 12:35:00 -05:00
parent 0f3d585dd2
commit e924ee696a
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/concurrency/locks/locks-tests.factor
View File

@ -1,7 +1,7 @@
IN: concurrency.locks.tests IN: concurrency.locks.tests
USING: tools.test concurrency.locks concurrency.count-downs USING: tools.test concurrency.locks concurrency.count-downs
concurrency.messaging concurrency.mailboxes locals kernel concurrency.messaging concurrency.mailboxes locals kernel
threads sequences calendar ; threads sequences calendar accessors ;
:: lock-test-0 ( -- ) :: lock-test-0 ( -- )
[let | v [ V{ } clone ] [let | v [ V{ } clone ]
@ -174,7 +174,7 @@ threads sequences calendar ;
] ; ] ;
[ lock-timeout-test ] [ [ lock-timeout-test ] [
linked-error-thread thread-name "Lock timeout-er" = linked-error-thread name>> "Lock timeout-er" =
] must-fail-with ] must-fail-with
:: read/write-test ( -- ) :: read/write-test ( -- )

4
basis/concurrency/messaging/messaging.factor
View File

@ -10,8 +10,8 @@ IN: concurrency.messaging
GENERIC: send ( message thread -- ) GENERIC: send ( message thread -- )
: mailbox-of ( thread -- mailbox ) : mailbox-of ( thread -- mailbox )
dup thread-mailbox [ ] [ dup mailbox>> [ ] [
<mailbox> dup rot set-thread-mailbox <mailbox> swap >>mailbox
] ?if ; ] ?if ;
M: thread send ( message thread -- ) M: thread send ( message thread -- )