Fixed typo, removed debugging output

implementation.rkt

@@ -285,8 +285,6 @@
         (syntax-parser
           #:context context
           #:literals (^ * + - ∞ once)
-          [({~do (displayln this-syntax)} #:oops-nope)
-           #'trbgfdsctgbrfvdc]
           [()
            #'(list)]
           [rest:not-stx-pair

test/test-split-xlist-ann.rkt

@@ -136,7 +136,7 @@
                : (List Fixnum String Null)
                '(1 "flob" ()))
 
-(check-equal?: (match (ann (list 1 "flob") Any)
+(check-equal?: (match (list 1 "flob")
                  [(and (? (make-predicate (xlist Fixnum String)))
                        (split-xlist whole Fixnum String)) whole])
                : (List One String Null)