From 61fc643a2a46f22604cbb110cc755c23734a2267 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 5 Aug 1988 20:16:26 +0000 Subject: [PATCH] Move `*the-non-printing-object*' to "global" since it isn't really needed at boot time. --- v7/src/runtime/boot.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm index 12d69469f..2d8cb5a16 100644 --- a/v7/src/runtime/boot.scm +++ b/v7/src/runtime/boot.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/boot.scm,v 14.1 1988/06/13 11:40:56 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/boot.scm,v 14.2 1988/08/05 20:16:26 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -51,9 +51,6 @@ MIT in each case. |# (begin (write-char #\Space port) (unparser state object))) (write-char #\] port)))) -(define *the-non-printing-object* - (object-new-type (ucode-type true) 1)) - (define-integrable interrupt-bit/stack #x0001) (define-integrable interrupt-bit/global-gc #x0002) (define-integrable interrupt-bit/gc #x0004) -- 2.25.1