From c005459335d66f8bcd2a2edfe66fca953d546912 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 12 May 2016 08:11:41 +0900 Subject: [PATCH] removing string-split-right --- lib/srfi/130.scm | 3 --- lib/srfi/130.sld | 2 +- 2 files changed, 1 insertion(+), 4 deletions(-) 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)