From 4bb2e655a7e03ee4db8de8532b0cdf1728147907 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Apr 1989 16:32:34 +0000 Subject: [PATCH] Eliminate use of `make-named-tag', which has been flushed from the runtime system. --- v7/src/sf/object.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.25.1