Fix error in REGEXP-SUBSTITUTE/GLOBAL example.

This commit is contained in:
sperber 2002-02-16 16:52:50 +00:00
parent 357afa99ae
commit 2cb2b88419
1 changed files with 1 additions and 1 deletions

View File

@ -1020,7 +1020,7 @@ Some examples:
;;; Remove potentially offensive substrings from string S.
(define (kill-matches re s)
(regexp-substitute/global #f s 'pre 'post))
(regexp-substitute/global #f re s 'pre 'post))
(kill-matches (rx (| "Windows" "tcl" "Intel")) s) ; Protect the children.\end{widecode}}