(set-adjoin e s)

Returns new set with the specified element adjoined

Parameter	Description
e	Element to adjoin
s	Existing set

Example

> (define a (list->set '(1 2 3) <))
> (set! a (set-adjoin 4 a))
> (set->list a)
(1 4 3 2)