From d8b80d7e1d51ff23be8c5a655f328799f1c30181 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 9 Aug 2017 09:46:29 -0400 Subject: [PATCH] syntax/parse template: add newlines in stress-test output --- .../tests/stxparse/stress-template.rkt | 30 ++++++++++--------- 1 file changed, 16 insertions(+), 14 deletions(-) diff --git a/pkgs/racket-test/tests/stxparse/stress-template.rkt b/pkgs/racket-test/tests/stxparse/stress-template.rkt index 6e62239dad..194884a447 100644 --- a/pkgs/racket-test/tests/stxparse/stress-template.rkt +++ b/pkgs/racket-test/tests/stxparse/stress-template.rkt @@ -56,24 +56,26 @@ #,(for/list ([i 100]) 'a) z)) -(define prog - '((test f1-stx #'(_ e)) - (test f1-tmpl #'(_ e)) +(define progss + '(((test f1-stx #'(_ e)) + (test f1-tmpl #'(_ e))) - (test f2-stx stx2a) - (test f2-tmpl stx2a) + ((test f2-stx stx2a) + (test f2-tmpl stx2a)) - (test f2-stx stx2) - (test f2-tmpl stx2) + ((test f2-stx stx2) + (test f2-tmpl stx2)) - (test f3-stx stx2a) - (test f3-tmpl stx2a) + ((test f3-stx stx2a) + (test f3-tmpl stx2a)) - (test f3-stx stx2) - (test f3-tmpl stx2))) + ((test f3-stx stx2) + (test f3-tmpl stx2)))) (define-namespace-anchor nsa) -(for ([p prog]) - (printf "> ~s\n" p) - (eval p (namespace-anchor->namespace nsa))) +(for ([progs progss]) + (for ([p progs]) + (printf "> ~s\n" p) + (eval p (namespace-anchor->namespace nsa))) + (newline))