Rename the mbase-dir module.

src/brmember.scm

@@ -33,6 +33,8 @@
 
   make-brmember
 
+  brmember?
+
   brmember-file-name
   brmember-file-path
   brmember-input-file
@@ -91,7 +93,7 @@
 	 util-tag)
 
  ;; Unique tag
- (define TAG-BRMEMBER (make-tag BRMEMBER))
+ (define TAG-BRMEMBER (make-tag brmember))
 
  ;; Checks whether given string is a 4-digit decimal number.
  (define (is-4digit-string? s)
@@ -136,6 +138,11 @@
 				   (cadr args))
 			     pairs)))))))
 
+ ;; Predicate
+ (define (brmember? v)
+   (and (ldict? v)
+	(eq? (ldict-ref v 'TAG #f) TAG-BRMEMBER)))
+
  ;; File name without directory
  (define (brmember-file-name mr)
    (ldict-ref mr 'file-name))