Minor I/O backend tweak

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 ;

extra/bootstrap/io/io.factor

@@ -10,6 +10,3 @@ IN: bootstrap.io
         { [ wince? ] [ "windows.ce" ] }
     } cond append require
 ] when
-
-init-io
-init-stdio

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

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

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

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