From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 19 Jan 1995 04:52:40 +0000 (+0000)
Subject: Tidying layout.
X-Git-Tag: 20090517-FFI~6724
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0a59060bc408877858c153dfdd389e122ff48583;p=mit-scheme.git

Tidying layout.
---

diff --git a/v8/src/compiler/midend/expand.scm b/v8/src/compiler/midend/expand.scm
index cc517e6f2..bb411ce48 100644
--- a/v8/src/compiler/midend/expand.scm
+++ b/v8/src/compiler/midend/expand.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: expand.scm,v 1.2 1994/11/26 22:05:28 gjr Exp $
+$Id: expand.scm,v 1.3 1995/01/19 04:52:40 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -71,10 +71,10 @@ MIT in each case. |#
 (define (expand/lambda form)
   (expand/remember
    (let ((lambda-list (lambda/formals form))
-	 (body (expand/expr (lambda/body form))))
+	 (body        (expand/expr (lambda/body form))))
      (cond ((memq '#!AUX lambda-list)
 	    => (lambda (tail)
-		 (let ((rest (list-prefix lambda-list tail))
+		 (let ((rest  (list-prefix lambda-list tail))
 		       (auxes (cdr tail)))
 		   (if (null? auxes)
 		       `(LAMBDA ,rest ,body)
@@ -121,8 +121,7 @@ MIT in each case. |#
 ;;;; Sort AUX bindings so that ASSCONV will do a better job.
 
 (define (expand/aux/sort auxes body)
-  (if (or (not (pair? body))
-	  (not (eq? (car body) 'BEGIN)))
+  (if (not (BEGIN/? body))
       body
       (let loop ((actions (simplify-actions (cdr body)))
 		 (last false)