1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
guile/benchmark-suite/benchmarks
Ludovic Courtès 0b7f2eb8bf Start rewriting SRFI-1 in Scheme.
This partially reverts commit e556f8c3c6
(Fri May 6 2005).

* module/srfi/srfi-1.scm (xcons, list-tabulate, not-pair?, car+cdr,
  last, fold, list-index): New procedures.

* srfi/srfi-1.c (srfi1_module): New variable.
  (CACHE_VAR): New macro.
  (scm_srfi1_car_plus_cdr, scm_srfi1_fold, scm_srfi1_last,
  scm_srfi1_list_index, scm_srfi1_list_tabulate, scm_srfi1_not_pair_p,
  scm_srfi1_xcons): Rewrite as proxies of the corresponding Scheme
  procedure.

* test-suite/tests/srfi-1.test ("list-tabulate")["-1"]: Change exception
  type to `exception:wrong-type-arg'.

* benchmark-suite/benchmarks/srfi-1.bm: New file.

* benchmark-suite/Makefile.am (SCM_BENCHMARKS): Add
  `benchmarks/srfi-1.bm'.

* test-suite/standalone/Makefile.am (test_srfi_1_SOURCES,
  test_srfi_1_CFLAGS, test_srfi_1_LDADD): New variables.
  (check_PROGRAMS): Add `test-srfi-1'.
  (TESTS): Ditto.

* test-suite/standalone/test-srfi-1.c: New file.
2010-07-21 01:07:56 +02:00
..
0-reference.bm Changes so that benchmark-guile runs successfully 2009-09-22 00:39:57 +01:00
bytevectors.bm rename (rnrs bytevector) to (rnrs bytevectors) 2010-06-01 13:26:11 +02:00
chars.bm Changes so that benchmark-guile runs successfully 2009-09-22 00:39:57 +01:00
continuations.bm Increase benchmark iterations to improve precision in comparisons over time 2009-11-03 22:50:07 +00:00
if.bm Changes so that benchmark-guile runs successfully 2009-09-22 00:39:57 +01:00
logand.bm Changes so that benchmark-guile runs successfully 2009-09-22 00:39:57 +01:00
read.bm fix read.bm 2010-04-17 14:04:49 +02:00
srfi-1.bm Start rewriting SRFI-1 in Scheme. 2010-07-21 01:07:56 +02:00
srfi-13.bm Increase benchmark iterations to improve precision in comparisons over time 2009-11-03 22:50:07 +00:00
structs.bm Add struct & vector benchmarks. 2009-12-11 13:03:46 +01:00
subr.bm Change Guile license to LGPLv3+ 2009-06-17 00:22:09 +01:00
uniform-vector-read.bm Increase benchmark iterations to improve precision in comparisons over time 2009-11-03 22:50:07 +00:00
vectors.bm Add struct & vector benchmarks. 2009-12-11 13:03:46 +01:00
vlists.bm Add `(ice-9 vlist)'. 2010-02-03 00:02:14 +01:00