Changeset 8903 in project


Ignore:
Timestamp:
02/25/08 15:44:27 (11 years ago)
Author:
kon
Message:

Cosmetic chgs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/bloom-filter/trunk/bloom-filter.scm

    r5595 r8903  
    66;; - Not optimal for 64-bit machines.
    77;;
    8 ;; - Note the use of "in-place" list mutators, '(*! ...). Be verwy careful.
     8;; - Note the use of "in-place" list mutators, '(*! ...). Be vewy careful.
    99;;
    1010;; - Although K may be lower the actual number of hash functions
    11 ;; all are generated anyway. It is up to the caller to optimize.
     11;; are generated anyway. It is up to the caller to optimize.
    1212;;
    1313;; - Should unavailable message-digests be an error, rather than a warning?
     
    142142                        ; technique ('module$name').
    143143                        (if (car extn-pair)
    144                                 (unless (car proc-pair)
    145                                         (set-car! proc-pair (global-call/default #f (cdr proc-pair))) )
    146                                 (unavailable-warning 'unit (cdr extn-pair)) )
     144          (unless (car proc-pair)
     145            (set-car! proc-pair (global-call/default #f (cdr proc-pair))) )
     146          (unavailable-warning 'unit (cdr extn-pair)) )
    147147
    148148                        ; Return message-digest-primitive
     
    209209                                         [actual-k (bloom-filter:actual-k mdp-lst)])
    210210                        (if desired-k
    211                                 (begin
    212                                         (ensure-positive-fixnum desired-k 'make-bloom-filter)
    213                                         (when (fx< actual-k desired-k)
    214                                                 (error 'make-bloom-filter
    215                                                         "insufficient hash functions" actual-k desired-k) ) )
    216                                 (set! desired-k actual-k))
     211          (begin
     212            (ensure-positive-fixnum desired-k 'make-bloom-filter)
     213            (when (fx< actual-k desired-k)
     214              (error 'make-bloom-filter
     215                "insufficient hash functions" actual-k desired-k) ) )
     216          (set! desired-k actual-k))
    217217                        (%make-bloom-filter 0 m desired-k
    218                                 (make-bit-vector m)
    219                                 (map
    220                                         (cut make-mdp <>
    221                                                 (lambda (n)
    222                                                         ; Hash functions return integers, and m is a fixnum, so 'inexact->exact'
    223                                                         ; will produce a fixnum.
    224                                                         (inexact->exact (modulo n m)) ))
    225                                         mdp-lst)))) )
     218                          (make-bit-vector m)
     219                          (map
     220                            (cut make-mdp <>
     221                              (lambda (n)
     222                                ; Hash functions return integers,
     223                                ; and m is a fixnum, so 'inexact->exact'
     224                                ; will produce a fixnum.
     225                                (inexact->exact (modulo n m)) ))
     226                            mdp-lst)))) )
    226227
    227228;;; Calculators
     
    248249                                         [calc-p (bloom-filter:p-false-positive k n m)])
    249250                        (if (<= calc-p p)
    250                                 (values m k calc-p)
    251                                 (loop (fx+ m n))))) )
     251          (values m k calc-p)
     252          (loop (fx+ m n))))) )
    252253
    253254(define (bloom-filter:actual-k mds)
Note: See TracChangeset for help on using the changeset viewer.