syntax/parse template: add newlines in stress-test output
This commit is contained in:
parent
eb65a859cd
commit
d8b80d7e1d
|
@ -56,24 +56,26 @@
|
||||||
#,(for/list ([i 100]) 'a)
|
#,(for/list ([i 100]) 'a)
|
||||||
z))
|
z))
|
||||||
|
|
||||||
(define prog
|
(define progss
|
||||||
'((test f1-stx #'(_ e))
|
'(((test f1-stx #'(_ e))
|
||||||
(test f1-tmpl #'(_ e))
|
(test f1-tmpl #'(_ e)))
|
||||||
|
|
||||||
(test f2-stx stx2a)
|
((test f2-stx stx2a)
|
||||||
(test f2-tmpl stx2a)
|
(test f2-tmpl stx2a))
|
||||||
|
|
||||||
(test f2-stx stx2)
|
((test f2-stx stx2)
|
||||||
(test f2-tmpl stx2)
|
(test f2-tmpl stx2))
|
||||||
|
|
||||||
(test f3-stx stx2a)
|
((test f3-stx stx2a)
|
||||||
(test f3-tmpl stx2a)
|
(test f3-tmpl stx2a))
|
||||||
|
|
||||||
(test f3-stx stx2)
|
((test f3-stx stx2)
|
||||||
(test f3-tmpl stx2)))
|
(test f3-tmpl stx2))))
|
||||||
|
|
||||||
(define-namespace-anchor nsa)
|
(define-namespace-anchor nsa)
|
||||||
|
|
||||||
(for ([p prog])
|
(for ([progs progss])
|
||||||
(printf "> ~s\n" p)
|
(for ([p progs])
|
||||||
(eval p (namespace-anchor->namespace nsa)))
|
(printf "> ~s\n" p)
|
||||||
|
(eval p (namespace-anchor->namespace nsa)))
|
||||||
|
(newline))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user