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

File string-subst-bus-error.diff.txt, 504 bytes (added by Jim Ursetto, 15 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))