Fix typo, clean up.

diff --git a/src/runtime/unsyn.scm b/src/runtime/unsyn.scm
index a489427b2df0f2c1222f5a53aaea55f66789a9e5..e7f3cedd3a34c8aaf5856c4f6d71c94d4b14db2b 100644 (file)
--- a/src/runtime/unsyn.scm
+++ b/src/runtime/unsyn.scm
@@ -376,23 +376,21 @@ USA.
                             (unscan-defines auxiliary declarations body))))))
 
 (define (unsyntax-lambda-body body)
-  (cond ((open-block? body)
-        (open-block-components body
-          (lambda (names declarations open-block-body)
-            (let ((unscanned (unscan-defines names declarations open-block-body)))
-              (if (sequence? unscanned)
-                  (unsyntax-lambda-body-sequence unscanned)
-                  (list (unsyntax-object unscanned)))))))
-       ((sequence? body) (unsyntax-lambda-body-sequence sequence))
-       (else (list (unsyntax-object body)))))
-
-(define (unsyntax-lambda-body-sequence sequence)
-  (guarantee-sequence sequence 'unsyntax-lambda-body-sequence)
-  (let ((first-action (sequence-first sequence)))
-    (if (block-declaration? first-action)
-       `((DECLARE ,@(block-declaration-text first-action))
-         ,@(unsyntax-sequence (sequence-second sequence)))
-       (unsyntax-sequence sequence))))
+  (if (open-block? body)
+      (open-block-components body
+       (lambda (names declarations open-block-body)
+         (unsyntax-lambda-body-sequence
+          (unscan-defines names declarations open-block-body))))
+      (unsyntax-lambda-body-sequence body)))
+
+(define (unsyntax-lambda-body-sequence body)
+  (if (sequence? body)
+      (let ((first-action (sequence-first body)))
+       (if (block-declaration? first-action)
+           `((DECLARE ,@(block-declaration-text first-action))
+             ,@(unsyntax-sequence (sequence-second body)))
+           (unsyntax-sequence body)))
+      (list (unsyntax-object body))))
 \f
 ;;;; Combinations