From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Sep 2001 05:13:00 +0000 (+0000)
Subject: Fix bug in previous change.
X-Git-Tag: 20090517-FFI~2558
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=09932372b786362bda84fe5ca3b1861fa19c9602;p=mit-scheme.git

Fix bug in previous change.
---

diff --git a/v7/src/runtime/chrsyn.scm b/v7/src/runtime/chrsyn.scm
index 98b5f56f1..d90c3302c 100644
--- a/v7/src/runtime/chrsyn.scm
+++ b/v7/src/runtime/chrsyn.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: chrsyn.scm,v 1.4 2001/09/24 03:00:56 cph Exp $
+;;; $Id: chrsyn.scm,v 1.5 2001/09/25 05:13:00 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -41,8 +41,6 @@
 	(guarantee-char-syntax-table table 'MAKE-CHAR-SYNTAX-TABLE)))))
 
 (define (get-char-syntax table char)
-  (if (not (char? char))
-      (error:wrong-type-argument char "character" 'GET-CHAR-SYNTAX))
   (vector-ref (guarantee-char-syntax-table table 'GET-CHAR-SYNTAX)
 	      (char->ascii char)))
 
@@ -94,9 +92,11 @@
 		'(166 169 (172 174) (176 177) 181 183 (188 190) 215 247))
       (for-each (iso-setter ".")
 		'(161 167 191)))
-    (set-char-syntax! table 160 " ")
-    (set-char-syntax! table 171 (string #\( (integer->char 187)))
-    (set-char-syntax! table 187 (string #\) (integer->char 171)))
+    (set-char-syntax! table (integer->char 160) " ")
+    (set-char-syntax! table (integer->char 171)
+		      (string #\( (integer->char 187)))
+    (set-char-syntax! table (integer->char 187)
+		      (string #\) (integer->char 171)))
 
     (set! standard-char-syntax-table table)
     unspecific))