string-replace

Description

Replaces all occurances of target in string with repl.

Author

Norman Walsh, <ndw@nwalsh.com>

Source Code

(define (string-replace string target repl)
  ;; Replace all occurances of a target substring in a string
  (let loop ((str string) (pos 0))
    (if (>= pos (string-length str))
	str
	(loop (repl-substring str target repl pos) 
	      (if (repl-substring? str target pos)
		  (+ (string-length repl) pos)
		  (+ 1 pos))))))