mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-06 12:10:28 +02:00
make has-suffix? use string-suffix?
* ice-9/boot-9.scm (has-suffix?): Use the core / srfi-13's string-suffix?.
This commit is contained in:
parent
6b1a13744b
commit
99f20fb622
1 changed files with 1 additions and 4 deletions
|
@ -569,10 +569,7 @@
|
|||
#f)))))
|
||||
|
||||
(define (has-suffix? str suffix)
|
||||
(let ((sufl (string-length suffix))
|
||||
(sl (string-length str)))
|
||||
(and (> sl sufl)
|
||||
(string=? (substring str (- sl sufl) sl) suffix))))
|
||||
(string-suffix? suffix str))
|
||||
|
||||
(define (system-error-errno args)
|
||||
(if (eq? (car args) 'system-error)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue