Rename the mbase-dir module.

src/mbase.scm

@@ -28,7 +28,11 @@
 (module
  mbase
  (
+  TAG-MBASE
+
   load-mbase
+
+  mbase?
   
   mbase-members
 
@@ -73,8 +77,11 @@
 	 month
 	 configuration
 	 progress
-	 members-dir)
- 
+	 mbase-dir
+	 util-tag)
+
+ ;; Constant unique tag
+ (define TAG-MBASE (make-tag mbase))
 
  ;; Loads members database, if the second argument is true, shows
  ;; progress. Members database is a dictionary with id being the key
@@ -83,7 +90,8 @@
    (let ((progress? (and (not (null? opts))
 			 (car opts))))
      (make-ldict
-      `((members
+      `((TAG . ,TAG-MBASE)
+	(members
 	 .
 	 ,(with-progress%
 	   progress? "members"
@@ -106,6 +114,11 @@
 				    mb1)))
 	     mb)))))))
 
+ ;; Predicate
+ (define (mbase? v)
+   (and (ldict? v)
+	(eq? (ldict-ref v 'TAG #f) TAG-MBASE)))
+
  ;; Returns the internal members list
  (define (mbase-members mb)
    (ldict-ref mb 'members))