diff options
| author | Andy Wingo <wingo@pobox.com> | 2010-06-11 01:35:41 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2010-06-11 16:58:24 +0200 |
| commit | 010b159f563dec3f6565723218b67858e6f9129d (patch) | |
| tree | 4dfd2a1bd332747f20e2a65be35c6efc26f7a48d /benchmark-suite | |
| parent | 02b582cef51b982e6fbb0487ea45ea2f56dde5bb (diff) | |
deprecate has-suffix?
* 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?.
Diffstat (limited to 'benchmark-suite')
| -rwxr-xr-x | benchmark-suite/guile-benchmark | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/benchmark-suite/guile-benchmark b/benchmark-suite/guile-benchmark index 41cae06a1..da2b2a1ad 100755 --- a/benchmark-suite/guile-benchmark +++ b/benchmark-suite/guile-benchmark @@ -5,7 +5,7 @@ ;;;; guile-benchmark --- run the Guile benchmark suite ;;;; Adapted from code by Jim Blandy <jimb@red-bean.com> --- May 1999 ;;;; -;;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 2002, 2006, 2010 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -148,7 +148,7 @@ (let ((root-len (+ 1 (string-length benchmark-dir))) (benchmarks '())) (for-each-file (lambda (file) - (if (has-suffix? file ".bm") + (if (string-suffix? ".bm" file) (let ((short-name (substring file root-len))) (set! benchmarks (cons short-name benchmarks)))) |