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))