From 1392622be86e427798d87fefdfe1296b2cead43b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 11 May 1995 16:13:54 +0000 Subject: [PATCH] Tidying. --- v8/src/compiler/midend/envconv.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm index ab27a3053..55ede7f17 100644 --- a/v8/src/compiler/midend/envconv.scm +++ b/v8/src/compiler/midend/envconv.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: envconv.scm,v 1.8 1995/04/29 00:55:01 adams Exp $ +$Id: envconv.scm,v 1.9 1995/05/11 16:13:54 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -93,14 +93,14 @@ MIT in each case. |# (define-macro (define-environment-converter keyword bindings . body) (let ((proc-name (symbol-append 'ENVCONV/ keyword))) (call-with-values - (lambda () (%matchup (cdr bindings) '(handler env) '(cdr form))) - (lambda (names code) - `(define ,proc-name - (let ((handler (lambda ,(cons (car bindings) names) ,@body))) - (named-lambda (,proc-name env form) - (envconv/remember ,code - form - (envconv/env/block env))))))))) + (lambda () (%matchup (cdr bindings) '(handler env) '(cdr form))) + (lambda (names code) + `(DEFINE ,proc-name + (LET ((HANDLER (LAMBDA ,(cons (car bindings) names) ,@body))) + (NAMED-LAMBDA (,proc-name ENV FORM) + (ENVCONV/REMEMBER ,code + FORM + (ENVCONV/ENV/BLOCK ENV))))))))) ;;;; Environment-sensitive forms -- 2.25.1