From 6ac3c2922712d636aab69fca26dfa532fa997b58 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Tue, 24 Jun 1997 05:33:29 +0000
Subject: [PATCH] * expect.scm (expect-strings): Pass regexp/newline flag to
 make-regexp.

---
 ice-9/expect.scm | 4 ++--
 1 file 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))