;;;; 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
(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))))