implement vectors

bin/sets.slime

@@ -1,28 +1,33 @@
-(import "cxr.slime")
+(define-module set
+  :exports (make find contains? insert!)
 
-(define key-not-found-index -1)
+  (import "cxr.slime")
 
-(define (make-set :rest vals)
-  (set-type
-   (if vals
-       (list vals)
-     '(()))
-   :set))
+  (define key-not-found-index -1)
 
-(define (set-find set val)
-  (let ((values (car set)))
-    (define (inner values current-index)
-      (cond ((null? values) key-not-found-index)
-            ((= (car values) val) current-index)
-            (else (inner (cdr values) (+ 1 current-index)))))
-    (inner values 0)))
+  (define (make :rest vals)
+    (set-type
+     (if vals
+         (list vals)
+       '(()))
+     :set))
 
-(define (set-contains? set val)
-  (unless (= (set-find set val) key-not-found-index)
+  (define (find set val)
+    (let ((values (car set)))
+      (define (inner values current-index)
+        (cond ((null? values) key-not-found-index)
+              ((= (car values) val) current-index)
+              (else (inner (cdr values) (+ 1 current-index)))))
+      (inner values 0)))
+
+  (define (contains? set val)
+    (unless (= (find set val) key-not-found-index)
       t))
 
-(define (set-insert! set value)
-  (unless (set-contains? set value)
-    (mutate set (pair (pair value (first set)) ()))
-    (set-type set :set))
-  set)
+  (define (insert! set value)
+    (unless (contains? set value)
+      (set! set (pair (pair value (first set)) ()))
+      (set-type set :set))
+    set)
+
+  )