From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Jun 1987 16:03:38 +0000 (+0000)
Subject: Change interpreter-call:cache-assignment/reference/unassigned? to
X-Git-Tag: 20090517-FFI~13445
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b443d86ade7a54bcb37dfd49767b59a4b1850c3b;p=mit-scheme.git

Change interpreter-call:cache-assignment/reference/unassigned? to
simplify their "name" argument during construction.
---

diff --git a/v7/src/compiler/rtlbase/rtlcon.scm b/v7/src/compiler/rtlbase/rtlcon.scm
index 3670b7d59..6895ece7a 100644
--- a/v7/src/compiler/rtlbase/rtlcon.scm
+++ b/v7/src/compiler/rtlbase/rtlcon.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcon.scm,v 1.7 1987/05/31 22:56:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcon.scm,v 1.8 1987/06/01 16:03:38 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -107,9 +107,21 @@ MIT in each case. |#
   (interpreter-lookup-maker %make-interpreter-call:access))
 
 (define (rtl:make-interpreter-call:cache-assignment name value)
-  (expression-simplify-for-statement value
-    (lambda (value)
-      (%make-interpreter-call:cache-assignment name value))))
+  (expression-simplify-for-statement name
+    (lambda (name)
+      (expression-simplify-for-statement value
+	(lambda (value)
+	  (%make-interpreter-call:cache-assignment name value))))))
+
+(define (rtl:make-interpreter-call:cache-reference name safe?)
+  (expression-simplify-for-statement name
+    (lambda (name)
+      (%make-interpreter-call:cache-reference name safe?))))
+
+(define (rtl:make-interpreter-call:cache-unassigned? name)
+  (expression-simplify-for-statement name
+    (lambda (name)
+      (%make-interpreter-call:cache-unassigned? name))))
 
 (define rtl:make-interpreter-call:define
   (interpreter-assignment-maker %make-interpreter-call:define))
diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm
index f9037abbb..522734058 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.8 1987/06/01 11:20:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.9 1987/06/01 16:03:06 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -65,8 +65,8 @@ MIT in each case. |#
 
 (define-rtl-statement interpreter-call:access % environment name)
 (define-rtl-statement interpreter-call:cache-assignment % name value)
-(define-rtl-statement interpreter-call:cache-reference rtl: name safe?)
-(define-rtl-statement interpreter-call:cache-unassigned? rtl: name)
+(define-rtl-statement interpreter-call:cache-reference % name safe?)
+(define-rtl-statement interpreter-call:cache-unassigned? % name)
 (define-rtl-statement interpreter-call:define % environment name value)
 (define-rtl-statement interpreter-call:enclose rtl: size)
 (define-rtl-statement interpreter-call:lookup % environment name safe?)