From ba76a5cfc7cce6899979076e1c8073b07ac938e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Thu, 29 Sep 2016 18:01:06 +0200 Subject: [PATCH] Fixed typo, removed debugging output --- implementation.rkt | 2 -- test/test-split-xlist-ann.rkt | 2 +- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/implementation.rkt b/implementation.rkt index de157f8..3fb64ea 100644 --- 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 index 4eece2d..5854f17 100644 --- 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)