From 76c6927ae3f09bbd2e3b62dd572d9a7f34408fa7 Mon Sep 17 00:00:00 2001
From: Marinho <marinho.pinotti@gmail.com>
Date: Sat, 25 Nov 2023 03:06:23 -0300
Subject: [PATCH] Remove leftover debug prints

---
 util.rkt | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

diff --git a/util.rkt b/util.rkt
index e780aff..bf20a3a 100644
--- a/util.rkt
+++ b/util.rkt
@@ -68,19 +68,15 @@
              syntax->list
              length
              range)))
-       (let [(ret
-              #`(lambda [args ... name]
-                  (unless (preds args)
-                    (raise-argument-error name
-                      (with-output-to-string
-                        (lambda []
-                          (write 'preds)))
-                      n
-                      args ...)) ...
-                  body ...))]
-         (displayln (syntax->datum ret))
-         (newline)
-         ret))]))
+       #`(lambda [args ... name]
+           (unless (preds args)
+             (raise-argument-error name
+               (with-output-to-string
+                 (lambda []
+                   (write 'preds)))
+               n
+               args ...)) ...
+           body ...))]))
 
 (module interfaces racket
   (provide