From fe5c0d17f2430ad10e0aa848290537cce90bf6e6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 28 Oct 2023 23:12:47 +0200 Subject: Remove unused module (hnh util set). --- module/hnh/util/set.scm | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 module/hnh/util/set.scm (limited to 'module/hnh') diff --git a/module/hnh/util/set.scm b/module/hnh/util/set.scm deleted file mode 100644 index 2839a231..00000000 --- a/module/hnh/util/set.scm +++ /dev/null @@ -1,46 +0,0 @@ -(define-module (hnh util set) - :use-module (hnh util object) - :use-module (hnh util table)) - -(define-type (set) - (set-data default: (make-table))) - -(define (set-null) (set)) - -(define (set-adjoin value set) - (modify set set-data tree-put value #t)) - -(define (set-disjoin value set) - (modify set set-data tree-put value #f)) - -(define (in-set? set value) - (catch 'out-of-range - (lambda () (tree-get (set-data set) value)) - (lambda () #f))) - -(define (set-fold f done set) - (tree-fold (lambda (k v lst) - (if v - (f k done) - done)) - done set)) - -(define (set->list set) - (set-fold cons '() set)) - -(define (set-union set1 set2) - (set-fold set-adjoin set1 set2)) - -(define (set-intersection set1 set2) - (set-fold (lambda (v set) - (if (in-set? v set1) - set1 - (set-disjoin v set1))) - set1 set2)) - -(define (set-difference set1 set2) - (set-fold set-disjoin set1 set2)) - -;; (define (set-xor set1 set2)) - - -- cgit v1.2.3