Ticket #34: string-subst-bus-error.diff.txt

File string-subst-bus-error.diff.txt, 504 bytes (added by Jim Ursetto, 17 years ago)

patch applicable to 4.0.7 and 3.5.6

Line 
1Index: regex.scm
2===================================================================
3--- regex.scm (revision 14883)
4+++ regex.scm (working copy)
5@@ -183,6 +183,7 @@
6 [string-search-positions string-search-positions] )
7 (lambda (rx subst string . flag)
8 (##sys#check-string subst 'string-substitute)
9+ (##sys#check-string string 'string-substitute)
10 (let* ([which (if (pair? flag) (car flag) 1)]
11 [substlen (##sys#size subst)]
12 (strlen (##sys#size string))