set $\rightarrow$list

The set $\rightarrow$list function converts a set to a list.

(define set->list
(function slist
((a sset))
(if (ordered? a)
(vector->list (cadr a))
(cdr a))))