diff --git a/lib/srfi/130.scm b/lib/srfi/130.scm index 5d82fded..13b983a3 100644 --- a/lib/srfi/130.scm +++ b/lib/srfi/130.scm @@ -267,9 +267,6 @@ (else (lp end i (cons (substring-cursor str sc end) res))))))) -(define (string-split-right str delim . o) - #f) - (define (string-filter pred str . o) (let ((out (open-output-string))) (apply string-fold (lambda (ch acc) (if (pred ch) (write-char ch out))) #f str o) diff --git a/lib/srfi/130.sld b/lib/srfi/130.sld index 8abe2840..60349b51 100644 --- a/lib/srfi/130.sld +++ b/lib/srfi/130.sld @@ -37,7 +37,7 @@ string-fold string-fold-right string-for-each-cursor string-replicate string-count - string-replace string-split string-split-right + string-replace string-split string-filter string-remove) (import (scheme base) (scheme char) (scheme write)