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 3670b7d59d6faff1d66f916873572b53795f10d6..6895ece7a40675b5ac1df28532c83fc8c9be0fef 100644 (file)
--- 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 f9037abbb8766b3f743a360768c281db055fe77d..522734058ac6d0715d941140fd736beee5457a6c 100644 (file)
--- 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?)