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

deprecate has-suffix?

Browse source 
* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm (has-suffix?): Deprecate.

* test-suite/guile-test:
* benchmark-suite/guile-benchmark: Fix uses of deprecated has-suffix?.
This commit is contained in:
Andy Wingo 2010-06-11 01:35:41 +02:00
parent 02b582cef5
commit 010b159f56
4 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/guile-test
View file

@ -155,7 +155,7 @@
(let ((root-len (+ 1 (string-length test-dir)))
(tests '()))
(for-each-file (lambda (file)
(if (has-suffix? file ".test")
(if (string-suffix? ".test" file)
(let ((short-name
(substring file root-len)))
(set! tests (cons short-name tests))))