using stdint types
This commit is contained in:
+1
-1
@@ -25,7 +25,7 @@
|
||||
|
||||
(define (insert! set value)
|
||||
(unless (contains? set value)
|
||||
(set! set (pair (pair value (first set)) ()))
|
||||
(set! set (cons (cons value (car set)) ()))
|
||||
(set-type! set :set))
|
||||
set)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user