New ids.

members-base.scm

@@ -38,6 +38,7 @@
   print-members-base-stats
   get-free-members-ids
   print-members-ids-stats
+  gen-member-id
   members-base-tests!
   )
 
@@ -51,6 +52,7 @@
 	 (chicken sort)
 	 (chicken string)
 	 (chicken format)
+	 (chicken random)
 	 testing
 	 utils
 	 dictionary
@@ -374,6 +376,12 @@
 	       ", ")
 	      ")"))))
 
+ ;; Generates random vector id.
+ (define (gen-member-id mb)
+   (let* ((fids (get-free-members-ids mb))
+	  (vfids (list->vector fids)))
+     (vector-ref vfids (pseudo-random-integer (vector-length vfids)))))
+
  ;; Performs self-tests of this module.
  (define (members-base-tests!)
    (run-tests