RosettaCodeData/Task/Sort-an-integer-array/Scheme/sort-an-integer-array-2.scm

> (import (srfi 132))
> (list-sort < '(9 -2 1 2 8 0 1 2))
(-2 0 1 1 2 2 8 9)

> (vector-sort < #(9 -2 1 2 8 0 1 2))
#(-2 0 1 1 2 2 8 9)