Add tag util module.

src/util-set-list.scm

@@ -53,24 +53,11 @@
 
  (import scheme
 	 (chicken base)
-	 (chicken string)
-	 (chicken random)
-	 testing)
+	 testing
+	 util-tag)
 
  ;; Tag used for identifying list sets from this module
- (define TAG-LSET
-   (string-intersperse
-    (cons "LSET-"
-	  (map (lambda (n)
-		 (substring
-		  (number->string
-		   (+ 256 (char->integer n))
-		   16)
-		  1))
-	       (string->list
-		(random-bytes
-		 (make-string 8)))))
-    ""))
+ (define TAG-LSET (make-tag LSET))
 
  ;; Creates new list set using given equality procedure
  (define (make-lset . equality?)