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

View File

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