mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-26 21:20:30 +02:00
Code Activity

make has-suffix? use string-suffix?

Browse source 
* ice-9/boot-9.scm (has-suffix?): Use the core / srfi-13's
  string-suffix?.
This commit is contained in:
Andy Wingo 2008-05-19 12:23:46 +02:00
parent 6b1a13744b
commit 99f20fb622
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/boot-9.scm
View file

@ -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)