diff --git a/benchmarks.larceny/results.Larceny-r6rs b/benchmarks.larceny/results.Larceny-r6rs index a42bbc6..2741a95 100644 --- a/benchmarks.larceny/results.Larceny-r6rs +++ b/benchmarks.larceny/results.Larceny-r6rs @@ -7430,3 +7430,23 @@ Words allocated: 126088226 Words reclaimed: 0 Elapsed time...: 42817 ms (User: 23073 ms; System: 19390 ms) Elapsed GC time: 196 ms (CPU: 198 in 481 collections.) + +**************************** +Benchmarking Larceny-r6rs on Sun Jun 17 17:31:39 AST 2007 under Darwin Vesuvius.local 8.9.1 Darwin Kernel Version 8.9.1: Thu Feb 22 20:55:00 PST 2007; root:xnu-792.18.15~1/RELEASE_I386 i386 i386 + +Testing conform under Larceny-r6rs +Compiling... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +> +Running... +Larceny v0.93 "Deviated Prevert" (Nov 10 2006 04:27:45, precise:BSD Unix:unified) + + +> +Words allocated: 22544130 +Words reclaimed: 0 +Elapsed time...: 1428 ms (User: 1399 ms; System: 23 ms) +Elapsed GC time: 74 ms (CPU: 69 in 86 collections.) diff --git a/benchmarks/BUGS b/benchmarks/BUGS index 2818eb5..903e752 100644 --- a/benchmarks/BUGS +++ b/benchmarks/BUGS @@ -1,4 +1,3 @@ -* conform needs char-downcase. * maze needs bitwise-and * ray needs many fl procedures * quicksort needs bignum modulo. diff --git a/benchmarks/r6rs-benchmarks/conform.ss b/benchmarks/r6rs-benchmarks/conform.ss index 10ad09c..bd91774 100644 --- a/benchmarks/r6rs-benchmarks/conform.ss +++ b/benchmarks/r6rs-benchmarks/conform.ss @@ -3,6 +3,7 @@ (library (r6rs-benchmarks conform) (export main) (import (r6rs) + (r6rs unicode) (r6rs mutable-pairs) (r6rs-benchmarks)) diff --git a/src/ikarus.boot b/src/ikarus.boot index 06f725e..218b343 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/makefile.ss b/src/makefile.ss index 1f4f832..ad10455 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -305,6 +305,11 @@ [char-upcase i unicode] [char-titlecase i unicode] [char-foldcase i unicode] + [char-ci=? i unicode] + [char-ci? i unicode] + [char-ci>=? i unicode] [string? i r] [string i r] [make-string i r]