From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 Aug 2006 03:48:57 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~950
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c8c3dddff71b0b332b16fa896bf33ebe5ad5c96;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index fab12b125..e375c7c94 100644
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.39 2006/08/27 21:37:21 cph Exp $
+$Id: genio.scm,v 1.40 2006/08/29 03:48:57 cph Exp $
 
 Copyright 1991,1993,1995,1996,1999,2002 Massachusetts Institute of Technology
 Copyright 2003,2004,2005,2006 Massachusetts Institute of Technology
@@ -1036,7 +1036,7 @@ USA.
 		  (LAMBDA (IB)
 		    (DECODE-8-BIT IB TABLE))))
 	      (DEFINE-ENCODER ',name
-		(RECEIVE (LHS RHS) (REVERSE-ISO-8859-MAP ,start ',(cddr form))
+		(RECEIVE (LHS RHS) (REVERSE-ISO-8859-MAP ,start ',code-points)
 		  (LAMBDA (OB CP)
 		    (ENCODE-8-BIT OB CP ,start LHS RHS))))))
 	 (ill-formed-syntax form)))))