From: Chris Hanson Date: Fri, 22 Jan 1988 21:57:06 +0000 (+0000) Subject: `rtl:make-interpreter-call:cache-unassigned?' was defined with the X-Git-Tag: 20090517-FFI~12912 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7d1b0fdc55cb53593411aff559b18254f103a9f4;p=mit-scheme.git `rtl:make-interpreter-call:cache-unassigned?' was defined with the wrong number of arguments. --- diff --git a/v7/src/compiler/rtlbase/rtlcon.scm b/v7/src/compiler/rtlbase/rtlcon.scm index 2427eeca6..6c686f18c 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 4.3 1987/12/31 08:50:36 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcon.scm,v 4.4 1988/01/22 21:57:06 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -104,7 +104,6 @@ MIT in each case. |# ;;; Interpreter Calls (define rtl:make-interpreter-call:access) -(define rtl:make-interpreter-call:cache-unassigned?) (define rtl:make-interpreter-call:unassigned?) (define rtl:make-interpreter-call:unbound?) (let ((interpreter-lookup-maker @@ -115,8 +114,6 @@ MIT in each case. |# (%make environment name))))))) (set! rtl:make-interpreter-call:access (interpreter-lookup-maker %make-interpreter-call:access)) - (set! rtl:make-interpreter-call:cache-unassigned? - (interpreter-lookup-maker %make-interpreter-call:cache-unassigned?)) (set! rtl:make-interpreter-call:unassigned? (interpreter-lookup-maker %make-interpreter-call:unassigned?)) (set! rtl:make-interpreter-call:unbound? @@ -153,6 +150,11 @@ MIT in each case. |# (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)))) ;;;; Expression Simplification