factor/basis/bootstrap/io/io.factor

12 lines
349 B
Factor
Raw Normal View History

2007-11-09 03:00:43 -05:00
USING: system vocabs vocabs.loader kernel combinators
namespaces sequences io.backend accessors ;
2007-09-20 18:09:08 -04:00
IN: bootstrap.io
"bootstrap.compiler" vocab [
"io.backend." {
2007-11-09 03:00:43 -05:00
{ [ "io-backend" get ] [ "io-backend" get ] }
{ [ os unix? ] [ "unix." os name>> append ] }
2008-04-02 19:25:33 -04:00
{ [ os winnt? ] [ "windows.nt" ] }
2007-11-09 03:00:43 -05:00
} cond append require
2007-09-20 18:09:08 -04:00
] when