From e65629cb9edeccd91992975bf87dfd633a108035 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 18 Dec 2007 04:08:08 -0500
Subject: [PATCH] Fixes bug 176682: some omissions in makefile.ss

---
 scheme/last-revision |  2 +-
 scheme/makefile.ss   | 13 +++++++------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index adbc5cb..1b0f564 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1255
+1256
diff --git a/scheme/makefile.ss b/scheme/makefile.ss
index d3c5cb4..4c7732d 100755
--- a/scheme/makefile.ss
+++ b/scheme/makefile.ss
@@ -179,7 +179,7 @@
     [&irritants                ($core-rtd . (&irritants-rtd &irritants-rcd))]
     [&who                      ($core-rtd . (&who-rtd &who-rcd ))]
     [&non                      ($core-rtd . (&non-continuable-rtd &non-continuable-rcd))]
-    [&implementation           ($core-rtd . (&implementation-restriction-rtd &implementation-restriction-rcd))]
+    [&implementation-restriction  ($core-rtd . (&implementation-restriction-rtd &implementation-restriction-rcd))]
     [&lexical                  ($core-rtd . (&lexical-rtd &lexical-rcd ))]
     [&syntax                   ($core-rtd . (&syntax-rtd &syntax-rcd ))]
     [&undefined                ($core-rtd . (&undefined-rtd &undefined-rcd))]
@@ -697,7 +697,7 @@
     [nan?                                        i r ba]
     [negative?                                   i r ba se]
     [not                                         i r ba se]
-    [null?                                       i r ba]
+    [null?                                       i r ba se]
     [number->string                              i r ba se]
     [number?                                     i r ba se]
     [numerator                                   i r ba se]
@@ -747,10 +747,10 @@
     [vector-set!                                 i r ba se]
     [vector?                                     i r ba se]
     [zero?                                       i r ba se]
-    [...                                         i ne r ba sc]
-    [=>                                          i ne r ba ex]
+    [...                                         i ne r ba sc se]
+    [=>                                          i ne r ba ex se]
     [_                                           i ne r ba sc]
-    [else                                        i ne r ba ex]
+    [else                                        i ne r ba ex se]
     [bitwise-arithmetic-shift                    i r bw]
     [bitwise-arithmetic-shift-left               i r bw]
     [bitwise-arithmetic-shift-right              i r bw]
@@ -1069,6 +1069,7 @@
     [i/o-encoding-error?                         i r ip]
     [i/o-error-filename                          i r ip is fi]
     [i/o-error-port                              i r ip is fi]
+    [i/o-error-position                          i r ip is fi]
     [i/o-error?                                  i r ip is fi]
     [&i/o-file-already-exists                    i r ip is fi]
     [i/o-file-already-exists-error?              i r ip is fi]
@@ -1151,7 +1152,7 @@
     [current-output-port                         i r ip is se]
     [current-error-port                          i r ip is]
     [eof-object                                  i r ip is se]
-    [eof-object?                                 i r ip is]
+    [eof-object?                                 i r ip is se]
     [close-input-port                            i r is se]
     [close-output-port                           i r is se]
     [display                                     i r is se]