X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/e44d2e4d9884c25b746b95690bcfb601547220fd..ef7a71b768c583d795b5de6b0c49177e7dfb0dbf:/module/rnrs/enums.scm

diff --git a/module/rnrs/enums.scm b/module/rnrs/enums.scm
index cd7e346ba..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) 
@@ -137,7 +137,6 @@
 	 (define-syntax constructor-syntax
 	   (lambda (s)
 	     (syntax-case s ()
-	       ((_) (syntax #f))
 	       ((_ sym (... ...))
 		(let* ((universe '(symbol ...))
 		       (syms (syntax->datum #'(sym (... ...))))