From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Aug 1989 13:41:26 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~11858
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=19f653a33636c5c3bfac6b1ed485936762eac8ca;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 88d81c4d2..b8b7ecd55 100644
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.9 1989/08/08 21:06:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.10 1989/08/09 13:41:26 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -218,7 +218,8 @@ must be defined when the defstruct is evaluated.
 	    (map cdr keyword-constructors)
 	    (if (and (null? boa-constructors)
 		     (null? keyword-constructors))
-		(list (symbol-append 'make- name))		(map cdr boa-constructors))	    copier-name
+		(list (list (symbol-append 'make- name)))
+		(map cdr boa-constructors))	    copier-name
 	    predicate-name
 	    (if (eq? print-procedure default-value)
 		`(,(absolute 'UNPARSER/STANDARD-METHOD) ',name)