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.
|
;;; Remove potentially offensive substrings from string S.
|
||||||
(define (kill-matches re 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}}
|
(kill-matches (rx (| "Windows" "tcl" "Intel")) s) ; Protect the children.\end{widecode}}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue