* Added native support for $fl+, $fl-, $fl*, $fl/

benchmarks/r6rs-benchmarks/BUGS

@@ -1,18 +0,0 @@
-* conform needs char-downcase.
-* maze needs bitwise-and
-* ray needs many fl procedures
-* quicksort needs bignum modulo.
-* scheme needs complex? and other stuff.
-* simplex needs flpositive?
-* slatex needs string-ci=?
-* compiler needs string-downcase
-
-* ctak crashes with a bus error.
-* fibc crashes with a segfault.
-* fibfp does not terminate
-* mbrot too slow
-* ntakl kinda slow
-* pnpoly kinda slow
-* sumfp/fpsum too slow
-* string too slow
-* nbody does not work

benchmarks/r6rs-benchmarks/ctak.ss

@@ -6,21 +6,21 @@
   
   (define (ctak x y z)
     (call-with-current-continuation
-     (lambda (k) (ctak-aux k x y z))))
+      (lambda (k) (ctak-aux k x y z))))
   
   (define (ctak-aux k x y z)
     (if (not (< y x))
         (k z)
         (call-with-current-continuation
-         (lambda (k)
-           (ctak-aux
-            k
-            (call-with-current-continuation
-             (lambda (k) (ctak-aux k (- x 1) y z)))
-            (call-with-current-continuation
-             (lambda (k) (ctak-aux k (- y 1) z x)))
-            (call-with-current-continuation
-             (lambda (k) (ctak-aux k (- z 1) x y))))))))
+          (lambda (k)
+            (ctak-aux
+             k
+             (call-with-current-continuation
+               (lambda (k) (ctak-aux k (- x 1) y z)))
+             (call-with-current-continuation
+               (lambda (k) (ctak-aux k (- y 1) z x)))
+             (call-with-current-continuation
+               (lambda (k) (ctak-aux k (- z 1) x y))))))))
   
   (define (main . args)
     (run-benchmark