diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-06-24 05:33:29 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-06-24 05:33:29 +0000 |
commit | 6ac3c2922712d636aab69fca26dfa532fa997b58 (patch) | |
tree | 829b0f62bd27971479f1e24e9349ed19cabae02f | |
parent | bd56d0166297da9aba68fa043f0f2e223806e710 (diff) | |
download | guile-6ac3c2922712d636aab69fca26dfa532fa997b58.tar.gz |
* expect.scm (expect-strings): Pass regexp/newline flag to
make-regexp.
-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)) |