diff options
-rw-r--r-- | ice-9/expect.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ice-9/expect.scm b/ice-9/expect.scm index d902bd3d1..c9fee4c50 100644 --- a/ice-9/expect.scm +++ b/ice-9/expect.scm @@ -109,8 +109,8 @@ (let ((rxname (gentemp))) (next-test (cdr tests) (cdr exprs) - ;; should maybe use REG_NEWLINE below? - (cons `(,rxname (make-regexp ,(car tests))) + (cons `(,rxname (make-regexp ,(car tests) + regexp/newline)) defs) (cons `((lambda (s) (regexp-exec ,rxname s)) |