From 30be092c1b51f96a79bcb6fab9c8473cde763585 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 23 Sep 2016 00:53:43 +0200 Subject: [PATCH] Removed debugging trace --- private/no-order.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/private/no-order.rkt b/private/no-order.rkt index 360f129..d6636f9 100644 --- a/private/no-order.rkt +++ b/private/no-order.rkt @@ -216,7 +216,7 @@ 1) (string-append "more than one of the lifted rest" " patterns matched")})))) - ((λ (x) (pretty-write (syntax->datum x)) x) + ((λ (x) #;(pretty-write (syntax->datum x)) x) #`(~delimit-cut (~and #,(fix-disappeared-uses) whole-clause-pat