adjust a test to accommodate Windows paths
This commit is contained in:
parent
6343ca0826
commit
ebd84546ca
|
@ -2107,7 +2107,7 @@
|
|||
(err/rt-test (apply raise-syntax-error #f "oops" a0 a1 args)
|
||||
(lambda (exn)
|
||||
(and (exn:fail:syntax? exn)
|
||||
(regexp-match? (format "^[^:\n]*:~a:~a:"
|
||||
(regexp-match? (format "^([a-zA-Z]:)?[^:\n]*:~a:~a:"
|
||||
(or (syntax-line a1)
|
||||
(syntax-line a0))
|
||||
(or (syntax-column a1)
|
||||
|
|
Loading…
Reference in New Issue
Block a user