(case-sensitive #f)

(include "test-shim.scm")

(module foof-loop-tests (vector-quick-sort! vector-exchange!)

(import scheme
        (only (chicken base) parameterize include case-sensitive)
        (rename (chicken random) (pseudo-random-integer random-integer))
        srfi-6 foof-loop test-shim)

(define (identity-procedure x) x)

(define (append-reverse list tail)
  (if (pair? list)
      (append-reverse (cdr list) (cons (car list) tail))
      tail))

(include "test-foof-loop.scm")

(run-suites!)
)