anchor.diff:               `(,(compile-pattern-test (car pt) val-sym)
                  (let* ,(compile-pattern-bindings (car pt) val-sym)
                    ,@(cdr pt)))))]
  -    `(let* [(,val-sym ,val)]
  +    (debug `(let* [(,val-sym ,val)]
          (cond ,@(map compile-arm pts)
  -             [true ,(generate-case-error pts val-sym)]))))
  +             [true ,(generate-case-error pts val-sym)])))))
  
positive.code:           `(,@(compile-pattern-bindings (caddr pattern) symb) ,@(compile-pattern-bindings (cadr pattern) symb))]
           [(eq? (car pattern) '->)
            (compile-pattern-bindings (caddr pattern) `(,(cadr pattern) ,symb))]
           [(cons-pattern? pattern)
            (let* [(lhs (cons-pat-left-side pattern))
                   (rhs (cons-pat-right-side pattern))
  
negative.code:             (push-cdr! out (compile-pattern-test (nth pattern i)
                                                  ~(nth ,sym ,i))))
            `(let* [(,sym ,symb)]
               (and (list? ,sym) (= (# ,sym) ,(pattern-length pattern 0)) ,@out)))])]
      [(or (eq? '_ pattern) (meta? pattern))
       `true]
      [(and (! (meta? pattern)) (symbol? pattern))
  