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

Fix tchange

db4
Slava Pestov 2008-04-17 05:16:28 -05:00
parent 6746bd3d53
commit 382b5f9aa8
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/threads/threads-tests.factor
View File

@ -1,4 +1,5 @@
USING: namespaces io tools.test threads kernel ; USING: namespaces io tools.test threads kernel
concurrency.combinators math ;
IN: threads.tests IN: threads.tests
3 "x" set 3 "x" set
@ -16,3 +17,13 @@ yield
] unit-test ] unit-test
[ f ] [ f get-global ] unit-test [ f ] [ f get-global ] unit-test
{ { 0 3 6 9 12 15 18 21 24 27 } } [
10 [
0 "i" tset
[
"i" [ yield 3 + ] tchange
] times yield
"i" tget
] parallel-map
] unit-test

2
core/threads/threads.factor
View File

@ -27,7 +27,7 @@ mailbox variables sleep-entry ;
tnamespace set-at ; tnamespace set-at ;
: tchange ( key quot -- ) : tchange ( key quot -- )
tnamespace change-at ; inline tnamespace swap change-at ; inline
: threads 41 getenv ; : threads 41 getenv ;