From 91b8f907151b5e98906c662dfaeef3d6cef3f60f Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 10 Dec 2007 10:24:10 -0500
Subject: [PATCH] removed obsolete (ikarus system $io) library.

---
 scheme/ikarus.fasl.write.ss   |  1 -
 scheme/ikarus.unicode-data.ss |  1 -
 scheme/last-revision          |  2 +-
 scheme/makefile.ss            | 13 -------------
 4 files changed, 1 insertion(+), 16 deletions(-)

diff --git a/scheme/ikarus.fasl.write.ss b/scheme/ikarus.fasl.write.ss
index 96591ef..92ee053 100644
--- a/scheme/ikarus.fasl.write.ss
+++ b/scheme/ikarus.fasl.write.ss
@@ -21,7 +21,6 @@
     (ikarus system $codes)
     (ikarus system $pairs)
     (ikarus system $structs)
-    (ikarus system $io)
     (ikarus system $bytevectors)
     (ikarus system $fx)
     (ikarus system $chars)
diff --git a/scheme/ikarus.unicode-data.ss b/scheme/ikarus.unicode-data.ss
index c19e5dc..4c496d5 100644
--- a/scheme/ikarus.unicode-data.ss
+++ b/scheme/ikarus.unicode-data.ss
@@ -33,7 +33,6 @@
     (ikarus system $chars)
     (ikarus system $pairs)
     (ikarus system $strings)
-    (ikarus system $io)
     (except (ikarus) 
       char-downcase char-upcase char-titlecase char-foldcase
       char-ci=? char-ci<? char-ci<=? char-ci>? char-ci>=?
diff --git a/scheme/last-revision b/scheme/last-revision
index 42d7979..f72207f 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1208
+1209
diff --git a/scheme/makefile.ss b/scheme/makefile.ss
index 9367d58..b0e4046 100755
--- a/scheme/makefile.ss
+++ b/scheme/makefile.ss
@@ -248,7 +248,6 @@
     [$ports      (ikarus system $ports)                #f     #t]
     [$codes      (ikarus system $codes)                #f     #t]
     [$tcbuckets  (ikarus system $tcbuckets)            #f     #t]
-    [$io         (ikarus system $io)                   #f     #t]
     [$arg-list   (ikarus system $arg-list)             #f     #t]
     [$stack      (ikarus system $stack)                #f     #t]
     [$interrupts (ikarus system $interrupts)           #f     #t]
@@ -339,7 +338,6 @@
     ;[with-input-from-string                      i]
     [open-output-string                          i]
     [open-output-bytevector                      i]
-    ;[open-input-string                           i]
     [get-output-string                           i]
     [get-output-bytevector                       i]
     [with-output-to-string                       i]
@@ -350,7 +348,6 @@
     [reset-input-port!                           i]
     [write-byte                                  i]
     [read-token                                  i]
-    ;[unread-char                                 i]
     [printf                                      i]
     [fprintf                                     i]
     [format                                      i]
@@ -529,14 +526,6 @@
     [$set-tcbucket-val!                          $tcbuckets]
     [$set-tcbucket-next!                         $tcbuckets]
     [$set-tcbucket-tconc!                        $tcbuckets]
-    [$flush-output-port                          $io]
-    [$reset-input-port!                          $io]
-    [$close-input-port                           $io]
-    [$close-output-port                          $io]
-    [$write-char                                 $io]
-    [$write-byte                                 $io]
-    [$read-char                                  $io]
-    [$peek-char                                  $io]
     [$arg-list                                   $arg-list]
     [$collect-key                                $arg-list]
     [$$apply                                     $stack]
@@ -1077,7 +1066,6 @@
     [get-string-n                                i r ip]
     [get-string-n!                               i r ip]
     [get-u8                                      i r ip]
-    [$get-u8                                     $io]
     [&i/o                                        i r ip is fi]
     [&i/o-decoding                               i r ip]
     [i/o-decoding-error?                         i r ip]
@@ -1107,7 +1095,6 @@
     [i/o-write-error?                            i r ip is fi]
     [lookahead-char                              i r ip]
     [lookahead-u8                                i r ip]
-    [$lookahead-u8                               $io]
     [make-bytevector                             i r bv]
     [make-custom-binary-input-port               i r ip]
     [make-custom-binary-input/output-port        r ip]