From 157043ad199b75d5b09b98fd56bf7519e95a2572 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 23 Jan 2008 02:45:55 -0400
Subject: [PATCH] Minor I/O backend tweak

---
 core/io/backend/backend.factor   | 3 +++
 extra/bootstrap/io/io.factor     | 3 ---
 extra/io/unix/bsd/bsd.factor     | 2 +-
 extra/io/unix/linux/linux.factor | 2 +-
 extra/io/windows/ce/ce.factor    | 2 +-
 extra/io/windows/nt/nt.factor    | 2 +-
 6 files changed, 7 insertions(+), 7 deletions(-)
 mode change 100644 => 100755 core/io/backend/backend.factor
 mode change 100644 => 100755 extra/io/unix/bsd/bsd.factor
 mode change 100644 => 100755 extra/io/unix/linux/linux.factor

diff --git a/core/io/backend/backend.factor b/core/io/backend/backend.factor
old mode 100644
new mode 100755
index a7736ae47e..6d0a6d5ec5
--- a/core/io/backend/backend.factor
+++ b/core/io/backend/backend.factor
@@ -21,3 +21,6 @@ M: object normalize-pathname ;
 
 [ init-io embedded? [ init-stdio ] unless ]
 "io.backend" add-init-hook
+
+: set-io-backend ( backend -- )
+    io-backend set-global init-io init-stdio ;
diff --git a/extra/bootstrap/io/io.factor b/extra/bootstrap/io/io.factor
index 238a971e67..065f7dd5c4 100755
--- a/extra/bootstrap/io/io.factor
+++ b/extra/bootstrap/io/io.factor
@@ -10,6 +10,3 @@ IN: bootstrap.io
         { [ wince? ] [ "windows.ce" ] }
     } cond append require
 ] when
-
-init-io
-init-stdio
diff --git a/extra/io/unix/bsd/bsd.factor b/extra/io/unix/bsd/bsd.factor
old mode 100644
new mode 100755
index 8ed84dc305..39eb8b6fb9
--- a/extra/io/unix/bsd/bsd.factor
+++ b/extra/io/unix/bsd/bsd.factor
@@ -26,4 +26,4 @@ M: bsd-io init-io ( -- )
 M: bsd-io wait-for-process ( pid -- status )
     [ kqueue-mx get-global add-pid-task stop ] curry callcc1 ;
 
-T{ bsd-io } io-backend set-global
+T{ bsd-io } set-io-backend
diff --git a/extra/io/unix/linux/linux.factor b/extra/io/unix/linux/linux.factor
old mode 100644
new mode 100755
index 180e81e30a..34afc16246
--- a/extra/io/unix/linux/linux.factor
+++ b/extra/io/unix/linux/linux.factor
@@ -14,4 +14,4 @@ M: linux-io init-io ( -- )
 M: linux-io wait-for-pid ( pid -- status )
     [ kqueue-mx get-global add-pid-task stop ] curry callcc1 ;
 
-T{ linux-io } io-backend set-global
+T{ linux-io } set-io-backend
diff --git a/extra/io/windows/ce/ce.factor b/extra/io/windows/ce/ce.factor
index 9fb0d700d9..a5e0cb6b4a 100755
--- a/extra/io/windows/ce/ce.factor
+++ b/extra/io/windows/ce/ce.factor
@@ -3,4 +3,4 @@ io.windows.ce.files io.windows.ce.sockets io.windows.ce.launcher
 namespaces io.windows.mmap ;
 IN: io.windows.ce
 
-T{ windows-ce-io } io-backend set-global
+T{ windows-ce-io } set-io-backend
diff --git a/extra/io/windows/nt/nt.factor b/extra/io/windows/nt/nt.factor
index 9ec97b33c6..000d1362b6 100755
--- a/extra/io/windows/nt/nt.factor
+++ b/extra/io/windows/nt/nt.factor
@@ -9,4 +9,4 @@ USE: io.windows.mmap
 USE: io.backend
 USE: namespaces
 
-T{ windows-nt-io } io-backend set-global
+T{ windows-nt-io } set-io-backend