-io-backend= switch added

2007-11-09 03:00:43 -05:00 · 2007-11-09 03:00:43 -05:00 · 32b3a70b44
parent 3efc9c7973
commit 32b3a70b44
1 changed files with 8 additions and 4 deletions
--- a/core/bootstrap/io/io.factor
+++ b/core/bootstrap/io/io.factor
@ -1,8 +1,12 @@
-USING: system vocabs vocabs.loader kernel ;
+USING: system vocabs vocabs.loader kernel combinators
+namespaces sequences ;
 IN: bootstrap.io

 "bootstrap.compiler" vocab [
-    unix? [ "io.unix" require ] when
-    winnt? [ "io.windows.nt" require ] when
-    wince? [ "io.windows.ce" require ] when
+    "io." {
+        { [ "io-backend" get ] [ "io-backend" get ] }
+        { [ unix? ] [ "unix" ] }
+        { [ winnt? ] [ "windows.nt" ] }
+        { [ wince? ] [ "windows.ce" ] }
+    } cond append require
 ] when