From 13f644b6402b01012f939a739c855f5e9da1ad68 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 5 May 1995 12:57:56 +0000 Subject: [PATCH] Tidying. --- v8/src/compiler/midend/dbgred.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/v8/src/compiler/midend/dbgred.scm b/v8/src/compiler/midend/dbgred.scm index 766eed0c5..702a34471 100644 --- a/v8/src/compiler/midend/dbgred.scm +++ b/v8/src/compiler/midend/dbgred.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: dbgred.scm,v 1.4 1995/04/27 23:22:00 adams Exp $ +$Id: dbgred.scm,v 1.5 1995/05/05 12:57:56 adams Exp $ -Copyright (c) 1994 Massachusetts Institute of Technology +Copyright (c) 1994-1995 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -146,22 +146,22 @@ MIT in each case. |# (if (not (pair? expr)) (illegal expr)) (case (car expr) - ((QUOTE) (dbg-reduce/quote env expr)) - ((LOOKUP) (dbg-reduce/lookup env expr)) - ((LAMBDA) (dbg-reduce/lambda env expr)) - ((LET) (dbg-reduce/let env expr)) - ((DECLARE) (dbg-reduce/declare env expr)) - ((CALL) (dbg-reduce/call env expr)) - ((BEGIN) (dbg-reduce/begin env expr)) - ((IF) (dbg-reduce/if env expr)) - ((LETREC) (dbg-reduce/letrec env expr)) + ((QUOTE) (dbg-reduce/quote env expr)) + ((LOOKUP) (dbg-reduce/lookup env expr)) + ((LAMBDA) (dbg-reduce/lambda env expr)) + ((LET) (dbg-reduce/let env expr)) + ((DECLARE) (dbg-reduce/declare env expr)) + ((CALL) (dbg-reduce/call env expr)) + ((BEGIN) (dbg-reduce/begin env expr)) + ((IF) (dbg-reduce/if env expr)) + ((LETREC) (dbg-reduce/letrec env expr)) (else (illegal expr)))) (define (dbg-reduce/expr* env exprs) - (lmap (lambda (expr) - (dbg-reduce/expr env expr)) - exprs)) + (map (lambda (expr) + (dbg-reduce/expr env expr)) + exprs)) (define-structure (dbg-reduce/env -- 2.25.1