From 32b3a70b44a674e8395bd6e16c0fddf40e12c7b2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 9 Nov 2007 03:00:43 -0500
Subject: [PATCH] -io-backend= switch added
---
core/bootstrap/io/io.factor | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
mode change 100644 => 100755 core/bootstrap/io/io.factor
diff --git a/core/bootstrap/io/io.factor b/core/bootstrap/io/io.factor
old mode 100644
new mode 100755
index 8aa7861d5a..64d5e929b2
--- 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