fixed the tests with new args
This commit is contained in:
+3
-4
@@ -5,8 +5,8 @@
|
||||
|
||||
(define key-not-found-index -1)
|
||||
|
||||
(define (make :rest vals)
|
||||
(set-type
|
||||
(define (make . vals)
|
||||
(set-type!
|
||||
(if vals
|
||||
(list vals)
|
||||
'(()))
|
||||
@@ -27,7 +27,6 @@
|
||||
(define (insert! set value)
|
||||
(unless (contains? set value)
|
||||
(set! set (pair (pair value (first set)) ()))
|
||||
(set-type set :set))
|
||||
(set-type! set :set))
|
||||
set)
|
||||
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user