From 0d21674285d39ce9b24355f00910ed8d4b34861b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 10 Mar 1995 14:44:08 +0000 Subject: [PATCH] WITH-VALUES -> CALL-WITH-VALUES --- v8/src/compiler/midend/compat.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/compat.scm b/v8/src/compiler/midend/compat.scm index 897ee37f2..b3294a5a0 100644 --- a/v8/src/compiler/midend/compat.scm +++ b/v8/src/compiler/midend/compat.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: compat.scm,v 1.6 1995/02/22 05:32:39 adams Exp $ +$Id: compat.scm,v 1.7 1995/03/10 14:44:08 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -268,7 +268,7 @@ MIT in each case. |# ;; SPECIAL-ARGUMENTS is the number of arguments passed by a special ;; mechanism, usually 1 for the continuation, or 2 for the ;; continuation and heap closure. - (with-values + (call-with-values (lambda () (%compat/split-register&stack special-arguments (lambda-list->names lambda-list))) @@ -361,14 +361,14 @@ MIT in each case. |# (hash-table/put! *compat-rewritten-operators* operator handler)) (define (compat/standard-call-handler env rator cont rands) - (with-values (lambda () (compat/split-register&stack rands)) + (call-with-values (lambda () (compat/split-register&stack rands)) (lambda (reg-rands stack-rands) (compat/rewrite-call/split env rator cont reg-rands stack-rands)))) (let* ((compat/invocation-cookie (lambda (n) (lambda (env rator cont rands) - (with-values + (call-with-values (lambda () (compat/split-register&stack (list-tail rands n))) (lambda (reg-rands stack-rands) (compat/rewrite-call/split -- 2.25.1