Changeset 14988 in project

Timestamp:

06/14/09 01:09:20 (12 years ago)

Author:

felix winkelmann

Message:

applied string-substitute patch by zb

File:

• chicken/trunk/regex.scm (modified) (1 diff)

chicken/trunk/regex.scm

@@ -184 +184 @@
     (lambda (rx subst string . flag)
       (##sys#check-string subst 'string-substitute)
+      (##sys#check-string string 'string-substitute)
       (let* ([which (if (pair? flag) (car flag) 1)]
              [substlen (##sys#size subst)]