Fix TR test regexp

This commit is contained in:
Asumu Takikawa 2014-06-27 02:47:17 -04:00
parent 0b3b1f5d94
commit 2edb73bff8

View File

@ -3121,7 +3121,7 @@
(define y (for/fold: ((x : String null)) ((v : String null)) x)) (define y (for/fold: ((x : String null)) ((v : String null)) x))
y) y)
#:ret (ret -String) #:ret (ret -String)
#:msg "expected: String.*given: Null"] #:msg #rx"expected: String.*given: (Null|'\\(\\))"]
) )
(test-suite (test-suite