From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Jun 1987 11:20:22 +0000 (+0000)
Subject: Finish changing `rtl:make-constant' so that it notices SCode
X-Git-Tag: 20090517-FFI~13447
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=57c3bb18566895de50fd08c93377c9e58fcbe257;p=mit-scheme.git

Finish changing `rtl:make-constant' so that it notices SCode
unassigned objects.
---

diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm
index ff2e01dad..f9037abbb 100644
--- a/v7/src/compiler/rtlbase/rtlty1.scm
+++ b/v7/src/compiler/rtlbase/rtlty1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.7 1987/05/31 22:56:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.8 1987/06/01 11:20:22 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
 (define-rtl-expression post-increment rtl: register number)
 
 (define-rtl-expression cons-pointer rtl: type datum)
-(define-rtl-expression constant rtl: value)
+(define-rtl-expression constant % value)
 (define-rtl-expression variable-cache rtl: name)
 (define-rtl-expression entry:continuation % continuation)
 (define-rtl-expression entry:procedure % procedure)
@@ -118,7 +118,7 @@ MIT in each case. |#
 (define (rtl:make-constant value)
   (if (scode/unassigned-object? value)
       (rtl:make-unassigned)
-      (rtl:make-constant value)))
+      (%make-constant value)))
 
 ;;;; Locatives