From daff01cd86b850da4f05fe059a93b6b9c49823b2 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 2 Feb 1995 19:35:50 +0000 Subject: [PATCH] Tidied code. --- v8/src/compiler/midend/applicat.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/v8/src/compiler/midend/applicat.scm b/v8/src/compiler/midend/applicat.scm index b4c98f5d8..d89ac73e6 100644 --- a/v8/src/compiler/midend/applicat.scm +++ b/v8/src/compiler/midend/applicat.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: applicat.scm,v 1.1 1994/11/19 02:04:29 adams Exp $ +$Id: applicat.scm,v 1.2 1995/02/02 19:35:50 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -43,13 +43,13 @@ MIT in each case. |# (define-macro (define-applicator keyword bindings . body) (let ((proc-name (symbol-append 'APPLICAT/ 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) - (applicat/remember ,code - form)))))))) + (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) + (APPLICAT/REMEMBER ,code + FORM)))))))) (define-applicator LOOKUP (env name) env ; ignored -- 2.25.1