From 6e9b920477e34b2e81d319472d25d6c0ab3e9881 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 5 May 2017 22:00:30 +0200 Subject: [PATCH] Removed compile-time debugging display, transformed it into a test. --- private/find-defined-pvars.rkt | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/private/find-defined-pvars.rkt b/private/find-defined-pvars.rkt index c1f7dc9..a5b5c06 100644 --- a/private/find-defined-pvars.rkt +++ b/private/find-defined-pvars.rkt @@ -11,6 +11,8 @@ (require stxparse-info/current-pvars (for-syntax racket/list)) +(define result #f) + (define-syntax (continue stx) (syntax-case stx () [(_ old-pvars-stx) @@ -26,13 +28,11 @@ " Before: ~a\n" " After: ~a\n" " New items: ~a" - old-pvars - rest-pvars - new-pvars))) - - (displayln old-pvars) - (displayln new-pvars) - #'(begin))])) + old-pvars + rest-pvars + new-pvars))) + ;; Return the result for tests: + #`(set! result '#,new-pvars))])) (define-syntax (find-defined-pvars stx) (syntax-case stx () @@ -43,4 +43,8 @@ (define/with-syntax (a . b) #'(1 2)) (find-defined-pvars (x . y) #'(3 4)) -(define/with-syntax (c . d) #'(5 6)) \ No newline at end of file +(define/with-syntax (c . d) #'(5 6)) + +(module+ test + (require rackunit) + (check-equal? result '(y x))) \ No newline at end of file