add bulk list operations for set-set operatoins

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/srfi-113-sets.scm b/tests/srfi-113-sets.scm
index 344f3bd..68395e5 100644
--- a/tests/srfi-113-sets.scm
+++ b/tests/srfi-113-sets.scm
@@ -295,7 +295,7 @@
         (vector-every (cut set-contains? set <>) vec)))
     (test-property set-contains-from (list (unique-vector))))
   (test-group "set-contains every element from set-every?"
-    (define (set-contains-every ste)
+    (define (set-contains-every set)
       (set-every? (cut set-contains? set <>) set))
     (test-property set-contains-every (list (set-generator))))
   (test-group "set-contains? is false for elements in disjoint set"
@@ -661,13 +661,13 @@
   (test-group "deleting an element from a set makes it >"
     (define (delete-set> set)
       (let ((set- (set-delete set (find-some-element set))))
-        (set>? set- set)))
+        (set>? set set-)))
     (test-property delete-set> (list (filter-non-empty-sets
                                       (set-generator)))))
   (test-group "adjoining an element to a set makes it >"
     (define (adjoin-set> set)
       (let ((set+ (set-adjoin set (cons #f #f))))
-        (set>? set set+)))
+        (set>? set+ set)))
     (test-property adjoin-set> (list (filter-non-empty-sets
                                       (set-generator)))))
   (test-group "nary >"