Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing string-split-right

Browse source
This commit is contained in:
Alex Shinn 2016-05-12 08:11:41 +09:00
parent 2165f19af5
commit c005459335
2 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/srfi/130.scm
View file

@ -267,9 +267,6 @@
(else (else
(lp end i (cons (substring-cursor str sc end) res))))))) (lp end i (cons (substring-cursor str sc end) res)))))))
(define (string-split-right str delim . o)
#f)
(define (string-filter pred str . o) (define (string-filter pred str . o)
(let ((out (open-output-string))) (let ((out (open-output-string)))
(apply string-fold (lambda (ch acc) (if (pred ch) (write-char ch out))) #f str o) (apply string-fold (lambda (ch acc) (if (pred ch) (write-char ch out))) #f str o)

2
lib/srfi/130.sld
View file

@ -37,7 +37,7 @@
string-fold string-fold-right string-fold string-fold-right
string-for-each-cursor string-for-each-cursor
string-replicate string-count string-replicate string-count
string-replace string-split string-split-right string-replace string-split
string-filter string-remove) string-filter string-remove)
(import (scheme base) (import (scheme base)
(scheme char) (scheme write) (scheme char) (scheme write)