From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Dec 1992 04:18:47 +0000 (+0000)
Subject: DEFINE-STRUCTURE no longer allows NAMED to be used with an argument
X-Git-Tag: 20090517-FFI~8663
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=16c32843afcbe0e1a914d5fec9ea65644efe7d6b;p=mit-scheme.git

DEFINE-STRUCTURE no longer allows NAMED to be used with an argument
unless TYPE is given.
---

diff --git a/v7/src/compiler/base/refctx.scm b/v7/src/compiler/base/refctx.scm
index f12fb4193..cb2209616 100644
--- a/v7/src/compiler/base/refctx.scm
+++ b/v7/src/compiler/base/refctx.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/refctx.scm,v 1.1 1988/12/12 21:32:12 cph Rel $
+$Id: refctx.scm,v 1.2 1992/12/08 04:18:47 cph Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -66,6 +66,7 @@ MIT in each case. |#
   "reference-context")
 
 (define-structure (reference-context
+		   (type vector)
 		   (named reference-context-tag)
 		   (constructor make-reference-context (block))
 		   (conc-name reference-context/))