From 16c32843afcbe0e1a914d5fec9ea65644efe7d6b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Dec 1992 04:18:47 +0000
Subject: [PATCH] DEFINE-STRUCTURE no longer allows NAMED to be used with an
 argument unless TYPE is given.

---
 v7/src/compiler/base/refctx.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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/))
-- 
2.25.1