From 3760929f3991579083b69cbd2f245fa3daff80d6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 16 Apr 2005 03:08:47 +0000 Subject: [PATCH] Don't use NULL type-code name. --- v7/src/compiler/back/bittop.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/back/bittop.scm b/v7/src/compiler/back/bittop.scm index fff3fabfb..5487c958a 100644 --- a/v7/src/compiler/back/bittop.scm +++ b/v7/src/compiler/back/bittop.scm @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: bittop.scm,v 1.24 2003/02/14 18:28:00 cph Exp $ +$Id: bittop.scm,v 1.25 2005/04/16 03:08:47 cph Exp $ -Copyright (c) 1988-1999 Massachusetts Institute of Technology +Copyright 1987,1988,1989,1990,1991,1992 Massachusetts Institute of Technology +Copyright 1993,2005 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -156,7 +157,7 @@ USA. code-block) ((ucode-primitive primitive-object-set! 3) output-block 0 - (object-new-type (ucode-type null) total-length)) + (object-new-type (ucode-type manifest-vector) total-length)) (insert-objects! output-block objects (fix:+ bl 1)) output-block)))) -- 2.25.1