summaryrefslogtreecommitdiff
path: root/module/rnrs
diff options
context:
space:
mode:
Diffstat (limited to 'module/rnrs')
-rw-r--r--module/rnrs/enums.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/module/rnrs/enums.scm b/module/rnrs/enums.scm
index 79d341746..e97be46e3 100644
--- a/module/rnrs/enums.scm
+++ b/module/rnrs/enums.scm
@@ -82,8 +82,8 @@
(enum-set-subset? enum-set-2 enum-set-1)))
(define (enum-set-union enum-set-1 enum-set-2)
- (if (eq? (enum-set-universe enum-set-1)
- (enum-set-universe enum-set-2))
+ (if (equal? (enum-set-universe enum-set-1)
+ (enum-set-universe enum-set-2))
(make-enum-set (enum-set-universe enum-set-1)
(lset-union eq?
(enum-set-set enum-set-1)
@@ -91,8 +91,8 @@
(raise (make-assertion-violation))))
(define (enum-set-intersection enum-set-1 enum-set-2)
- (if (eq? (enum-set-universe enum-set-1)
- (enum-set-universe enum-set-2))
+ (if (equal? (enum-set-universe enum-set-1)
+ (enum-set-universe enum-set-2))
(make-enum-set (enum-set-universe enum-set-1)
(lset-intersection eq?
(enum-set-set enum-set-1)
@@ -100,8 +100,8 @@
(raise (make-assertion-violation))))
(define (enum-set-difference enum-set-1 enum-set-2)
- (if (eq? (enum-set-universe enum-set-1)
- (enum-set-universe enum-set-2))
+ (if (equal? (enum-set-universe enum-set-1)
+ (enum-set-universe enum-set-2))
(make-enum-set (enum-set-universe enum-set-1)
(lset-difference eq?
(enum-set-set enum-set-1)