Start of work on the new IO system.

This commit is contained in:
Abdulaziz Ghuloum 2007-12-05 05:33:31 -05:00
parent 0b693a7103
commit cebab86485
3 changed files with 25 additions and 0 deletions

8
lab/io-prims.ss Normal file
View File

@ -0,0 +1,8 @@
(library (io-prims)
(export )
(import
(io-spec)
(except (ikarus)))
)

11
lab/io-spec.ss Normal file
View File

@ -0,0 +1,11 @@
(library (io-spec)
(export )
(import
(except (ikarus) ))
(define-struct $port
(buffer index size handlers codec attrs))
)

6
lab/test-io.ss Executable file
View File

@ -0,0 +1,6 @@
#!/usr/bin/env scheme-script
(import
(except (ikarus))
(io-prims))