Fix error in REGEXP-SUBSTITUTE/GLOBAL example.
This commit is contained in:
parent
357afa99ae
commit
2cb2b88419
|
@ -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}}
|
||||
|
||||
|
|
Loading…
Reference in New Issue