From 587664efbfc5b90004765c0b61f766fdc241eae1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 31 Mar 2010 10:27:24 -0400
Subject: [PATCH] tools.deploy.shaker: don't strip out io-thread, since new
 thread implementation requires at least one thread to be runnable at any time

---
 basis/tools/deploy/shaker/shaker.factor | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index e7eea1179a..21f28d6ae2 100755
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -42,12 +42,8 @@ IN: tools.deploy.shaker
     deploy-threads? get [
         "threads" startup-hooks get delete-at
     ] unless
-    native-io? [
-        "io.thread" startup-hooks get delete-at
-    ] unless
     strip-io? [
         "io.backend" startup-hooks get delete-at
-        "io.thread" startup-hooks get delete-at
     ] when
     strip-dictionary? [
         {
@@ -402,9 +398,6 @@ IN: tools.deploy.shaker
         [
             c-io-backend forget
             "io.streams.c" forget-vocab
-            "io-thread-running?" "io.thread" lookup [
-                global delete-at
-            ] when*
         ] with-compilation-unit
     ] when ;