mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

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

Browse source 
make-regexp.
This commit is contained in:
Jim Blandy 1997-06-24 05:33:29 +00:00
parent bd56d01662
commit 6ac3c29227
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/expect.scm
View file

@ -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))