mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 01:10:24 +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))) (let ((rxname (gentemp)))
(next-test (cdr tests) (next-test (cdr tests)
(cdr exprs) (cdr exprs)
;; should maybe use REG_NEWLINE below? (cons `(,rxname (make-regexp ,(car tests)
(cons `(,rxname (make-regexp ,(car tests))) regexp/newline))
defs) defs)
(cons `((lambda (s) (cons `((lambda (s)
(regexp-exec ,rxname s)) (regexp-exec ,rxname s))