Record filtering and basic property retrieval.

member-record.scm

@@ -33,6 +33,7 @@
   member-destroyed?
   member-suspended?
   member-active?
+  member-nick
   member-record-tests!
   )
 
@@ -100,6 +101,10 @@
    (and (not (member-destroyed? mr))
 	(not (member-suspended? mr))))
 
+ ;; Nickname as string
+ (define (member-nick mr)
+   (mr-ref mr 'nick))
+
  ;; Performs module self-tests.
  (define (member-record-tests!)
    (run-tests