Changeset 35023 in project

Timestamp:

01/15/18 18:10:50 (13 months ago)

Author:

kon

Message:

reflow

File:

• release/4/bloom-filter/trunk/bloom-filter.scm (modified) (6 diffs)

release/4/bloom-filter/trunk/bloom-filter.scm

@@ -21 +21 @@
 
 (;export
+  ;
   optimum-size
   optimum-k
@@ -28 +29 @@
   desired-m
   actual-k
+  ;
   make-bloom-filter
   bloom-filter? check-bloom-filter error-bloom-filter
@@ -145 +147 @@
         (message-digest-primitive-digest-length mdp)
         (unsigned-native-integer-size)) ) )
-    ;Returns a list of hash values for the supplied object
+    ;returns a list of hash values for the supplied object
     (lambda (obj ls)
       (message-digest-result->integers
@@ -219 +221 @@
 ;( p n mdps) | ( m mdps [k])
 (define (make-bloom-filter m mdps #!optional des-k)
-  ;Process paramter list variant
+  ;processing ( m mdps [k] ) or ( p n mdps ) ?
   (if (list? mdps)
     (check-positive-fixnum 'make-bloom-filter m 'm)
@@ -225 +227 @@
       (p m)
       (n mdps) )
-      (check-flonum 'make-bloom-filter p 'p)
-      (check-open-interval 'make-bloom-filter p 0.0 1.0 'p)
+      (check-open-interval 'make-bloom-filter (check-flonum 'make-bloom-filter p 'p) 0.0 1.0 'p)
       (check-positive-fixnum 'make-bloom-filter n 'n)
       (set! mdps des-k)
       (set!-values (m des-k) (optimum-size p n)) ) )
+  ;
   (for-each
     (cut check-message-digest-primitive 'make-bloom-filter <>)
     (check-list 'make-bloom-filter mdps 'mdps))
-  ;Get the "desired" # of hash values (k)
+  ;get the "desired" # of hash values (k)
   (let ((act-k (actual-k mdps)))
     (if (not des-k)
@@ -240 +242 @@
         ;FIXME tell them how !
         (error 'make-bloom-filter "insufficient hash functions supplied" act-k des-k) ) ) )
-  ;Bloom filter is a multi-hash into a bitvector
+  ;bloom filter is a multi-hash into a bitvector
   (%make-bloom-filter
     0 m des-k