From 0f577ba470f69adb2825a4902f2150280d35ac4c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Sun, 5 Feb 2017 09:07:47 +0100
Subject: [PATCH] Remove display
---
private/ddd.rkt | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/private/ddd.rkt b/private/ddd.rkt
index a439478..c71ddc9 100644
--- a/private/ddd.rkt
+++ b/private/ddd.rkt
@@ -122,7 +122,6 @@
(and (vector? present-variables**)
(vector->list present-variables**)))
(unless ((listof (syntax/c boolean?)) present-variables*)
- (displayln expanded-form)
(raise-syntax-error 'ddd
(string-append
"internal error: could not extract the vector of"
@@ -135,8 +134,6 @@
(map (λ (id)
(define prop (syntax-property id 'lifted-pvar))
(unless ((cons/c symbol? stx-list?) prop)
- (displayln id)
- (displayln prop)
(raise-syntax-error 'ddd
(string-append
"internal error: 'lifted-pvar property was "
@@ -175,7 +172,7 @@
(define-values (present-variables lifted-variables)
(extract-present-variables #'expanded-condition stx))
- (displayln lifted-variables)
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TODO: lifted stuff!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(define/with-syntax (test-present-attribute …)
(for/list ([present? (in-list present-variables)]