From 5b3d0c0816cdb6439e98a7ec6dd20c897c35fe5b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 10 Jan 2008 23:19:27 -0500
Subject: [PATCH] Make some combinators inline

---
 extra/concurrency/concurrency.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/concurrency/concurrency.factor b/extra/concurrency/concurrency.factor
index 1e9b769823..bc0d01956f 100644
--- a/extra/concurrency/concurrency.factor
+++ b/extra/concurrency/concurrency.factor
@@ -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.