lib/rnrs/sorting.ss
(library (rnrs sorting (6))
  (export list-sort vector-sort vector-sort!)
  (import (rnrs base)
	  (srfi-95))

  (define (list-sort proc list)
    (assert (list? list))
    (sort list proc))

  (define (vector-sort proc vector)
    (assert (vector? vector))
    (sort vector proc))

  (define (vector-sort! proc vector)
    (assert (vector? vector))
    (sort! vector proc)))