diff options
Diffstat (limited to 'benchmark-suite/guile-benchmark')
| -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)))) |