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

Make some combinators inline

db4
Slava Pestov 2008-01-10 23:19:27 -05:00
parent d870c7983a
commit 5b3d0c0816
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/concurrency/concurrency.factor
View File

@ -239,7 +239,7 @@ PRIVATE>
[ [
(spawn-server) (spawn-server)
"Exiting process: " write self process-pid print "Exiting process: " write self process-pid print
] curry spawn ; ] curry spawn ; inline
: spawn-linked-server ( quot -- process ) : spawn-linked-server ( quot -- process )
#! Similar to 'spawn-server' but the parent process will be linked #! Similar to 'spawn-server' but the parent process will be linked
@ -247,7 +247,7 @@ PRIVATE>
[ [
(spawn-server) (spawn-server)
"Exiting process: " write self process-pid print "Exiting process: " write self process-pid print
] curry spawn-link ; ] curry spawn-link ; inline
: server-cc ( -- cc|process ) : server-cc ( -- cc|process )
#! Captures the current continuation and returns the value. #! Captures the current continuation and returns the value.