Advanced accessors.

src/brmember.scm

@@ -57,9 +57,9 @@
   brmember-existing?
   brmember-flags
 
-  member-nick
-  member-id
-  member-suspended-months
+  brmember-nick
+  brmember-id
+  brmember-suspended-months
 
   member<?
 
@@ -245,7 +245,7 @@
  (define (brmember-has-problems? mr)
    (or (member-has-errors? mr)
        (not (brmember-usable? mr))
-       (not (is-4digit-prime? (member-id mr)))))
+       (not (is-4digit-prime? (brmember-id mr)))))
 
  ;; Returns true if the member record represents non-existing
  ;; member. The *current-month* is a global parameter from period
@@ -302,16 +302,16 @@
 		 (if (brmember-existing? mr) 'existing #f))))
 
  ;; Nickname as string
- (define (member-nick mr)
+ (define (brmember-nick mr)
    (brmember-info mr 'nick))
 
  ;; Returns member id
- (define (member-id mr)
+ (define (brmember-id mr)
    (ldict-ref mr 'id))
 
  ;; Returns the number of months the user is suspended. Zero if not
  ;; suspended.
- (define (member-suspended-months mr)
+ (define (brmember-suspended-months mr)
    (if (brmember-suspended? mr)
        (let ((period (periods-match (brmember-info mr 'suspend))))
 	 (if period
@@ -321,8 +321,8 @@
 
  ;; Comparator of member records based on nickname.
  (define (member<? a b)
-   (string-ci<? (member-nick a)
-		(member-nick b)))
+   (string-ci<? (brmember-nick a)
+		(brmember-nick b)))
 
  ;; Prepends new payment to given member record payments
  (define (member-record-add-payment mr pt)