;; -*- Mode: Irken -*-
(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/set.scm")
(define (test-set)
(let ((s0 (make-set '() =))
(s1 (make-set '() eq?))
)
(printn (s0.in 34))
(s0.add 12)
(s0.add 15)
(s0.add 94)
(s0.add 12)
(printn (s0.in 27))
(printn (s0.in 15))
(printn (s0.in 12))
(newline)
(printn (s1.in 'x))
(s1.add 'y)
(s1.add 'a)
(s1.add 'thing)
(s1.add 'y)
(printn (s1.in 'not))
(printn (s1.in 'a))
(printn (s1.in 'y))
(newline)
(printn (s0.get))
(printn (s1.get))
))
(test-set)