reformat

svn: r9039

original commit: 02c33947263e79ecb3a3fea436f91d023b94d899

collects/mzlib/etc.ss

@@ -1,5 +1,4 @@
-
-(module etc mzscheme
+#lang mzscheme
 
 (require (lib "main-collects.ss" "setup")
          scheme/local
@@ -316,11 +315,7 @@
                  ids)
        (let ([dup (check-duplicate-identifier ids)])
          (when dup
-             (raise-syntax-error
-              #f
-              "duplicate identifier"
-              stx
-              dup)))
+           (raise-syntax-error #f "duplicate identifier" stx dup)))
 
        ;; We'd like to check the `defns', but that requires
        ;; and expansion in a different phase. So we move
@@ -359,11 +354,7 @@
                   (apply
                    append
                    (map (lambda (expr)
-                            (let ([expr (local-expand
-                                         expr
-                                         ctx
-                                         kernel-forms
-                                         def-ctx)])
+                          (let ([expr (local-expand expr ctx kernel-forms def-ctx)])
                             (syntax-case expr (begin define-syntaxes define-values)
                               [(begin . rest)
                                (loop (syntax->list #'rest))]
@@ -431,4 +422,4 @@
             #'(let ([name (begin expr0 expr ...)])
                 name)))
          (syntax-local-lift-expression
-            #'(begin expr0 expr ...))))])))
+          #'(begin expr0 expr ...))))]))