summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-06-24 05:33:29 +0000
committerJim Blandy <jimb@red-bean.com>1997-06-24 05:33:29 +0000
commit6ac3c2922712d636aab69fca26dfa532fa997b58 (patch)
tree829b0f62bd27971479f1e24e9349ed19cabae02f
parentbd56d0166297da9aba68fa043f0f2e223806e710 (diff)
downloadguile-6ac3c2922712d636aab69fca26dfa532fa997b58.tar.gz
* expect.scm (expect-strings): Pass regexp/newline flag to
make-regexp.
-rw-r--r--ice-9/expect.scm4
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))