From 089b6ce8ee3f274cdc05553cf6fbf69dea9c1d64 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 20 Nov 2000 13:25:28 +0000
Subject: [PATCH] Fix thinko.

---
 v7/src/runtime/chrsyn.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/chrsyn.scm b/v7/src/runtime/chrsyn.scm
index 789f61774..2d0ca85e9 100644
--- a/v7/src/runtime/chrsyn.scm
+++ b/v7/src/runtime/chrsyn.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: chrsyn.scm,v 1.1 1999/05/13 03:04:36 cph Exp $
+;;; $Id: chrsyn.scm,v 1.2 2000/11/20 13:25:28 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -51,7 +51,8 @@
     (cond ((char? char)
 	   (vector-set! entries (char->ascii char) entry))
 	  ((char-set? char)
-	   (for-each (lambda (ascii) (vector-set! entries ascii entry))
+	   (for-each (lambda (char)
+		       (vector-set! entries (char->ascii char) entry))
 		     (char-set-members char)))
 	  (else
 	   (error:wrong-type-argument char "character" 'SET-CHAR-SYNTAX!)))))
-- 
2.25.1