From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 1989 16:32:34 +0000 (+0000)
Subject: Eliminate use of `make-named-tag', which has been flushed from the
X-Git-Tag: 20090517-FFI~12164
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4bb2e655a7e03ee4db8de8532b0cdf1728147907;p=mit-scheme.git

Eliminate use of `make-named-tag', which has been flushed from the
runtime system.
---

diff --git a/v7/src/sf/object.scm b/v7/src/sf/object.scm
index bf43d28d7..d18598e4f 100644
--- a/v7/src/sf/object.scm
+++ b/v7/src/sf/object.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/object.scm,v 4.1 1988/06/13 12:29:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/object.scm,v 4.2 1989/04/18 16:32:34 cph Rel $
 
-Copyright (c) 1987 Massachusetts Institute of Technology
+Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -171,7 +171,7 @@ MIT in each case. |#
 (define open-block/value-marker
   ;; This must be an interned object because we will fasdump it and
   ;; fasload it back in.
-  (make-named-tag "open-block/value-marker"))
+  (intern "#[(scode-optimizer)open-block/value-marker]"))
 
 ;;;; Expression Types