www

commit ba76a5cfc7cce6899979076e1c8073b07ac938e4
parent 3e460034ed51296a0697a57885bf879837d7b95a
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu, 29 Sep 2016 18:01:06 +0200

Fixed typo, removed debugging output

Diffstat:
M
implementation.rkt
 | 
2
--
M
test/test-split-xlist-ann.rkt
 | 
2
+-

2 files changed, 1 insertion(+), 3 deletions(-)
diff --git a/implementation.rkt b/implementation.rkt
@@ -285,8 +285,6 @@
         (syntax-parser
           #:context context
           #:literals (^ * + - ∞ once)
-          [({~do (displayln this-syntax)} #:oops-nope)
-           #'trbgfdsctgbrfvdc]
           [()
            #'(list)]
           [rest:not-stx-pair
diff --git a/test/test-split-xlist-ann.rkt b/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)