* expect.scm (expect-strings): Pass regexp/newline flag to

make-regexp.

diff --git a/ice-9/expect.scm b/ice-9/expect.scm
index d902bd3..c9fee4c 100644 (file)
--- 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))