same stupid bug in the old syntax

svn: r9057

collects/scheme/match/gen-match.ss

@@ -16,6 +16,7 @@
        (with-syntax ([(xs ...) (generate-temporaries exprs)]
                      [(exprs ...) exprs]
                      [(fail) (generate-temporaries #'(fail))])
+	 ;(printf "here in go ~a~n" (list (syntax-line (orig-stx)) (syntax-source (orig-stx))))
          (with-syntax ([body (compile* (syntax->list #'(xs ...))
                                        (map (lambda (pats rhs)
                                               (unless (= len (length (syntax->list pats)))
@@ -43,4 +44,4 @@
              (let ([xs exprs]
                    ...)
                (let ([fail (lambda () #,(syntax/loc stx (match:error orig-expr)))])
-                 body))))))])))
+                 body))))))])))

collects/scheme/match/parse-legacy.ss

@@ -71,7 +71,7 @@
          (let* (;; the accessors come in reverse order
                 [acc (reverse acc)]
                 ;; remove the first element, if it's #f
-                [acc (if (not (car acc)) (cdr acc) acc)])
+                [acc (cond [(null? acc) acc] [(not (car acc)) (cdr acc)] [else acc])])
            (make-Struct id pred (get-lineage #'s) acc 
                         (if (eq? '_ (syntax-e #'pats))
                             (map make-Dummy acc)