From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 5 May 1995 12:57:56 +0000 (+0000)
Subject: Tidying.
X-Git-Tag: 20090517-FFI~6342
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=13f644b6402b01012f939a739c855f5e9da1ad68;p=mit-scheme.git

Tidying.
---

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