Changeset 5443 in project for bloom-filter/bloom-filter.scm


Ignore:
Timestamp:
08/16/07 05:29:13 (13 years ago)
Author:
Kon Lovett
Message:

Chg for misc-extn 3.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • bloom-filter/bloom-filter.scm

    r5065 r5443  
    1515;; - No ability to add message-digest-primitives at runtime.
    1616
    17 (use srfi-1 utils iset message-digest hash-utils lookup-table misc-extn mathh-int)
     17(use srfi-1 utils)
     18(use iset message-digest hash-utils lookup-table misc-extn-control misc-extn-numeric misc-extn-record mathh-int)
    1819
    1920(eval-when (compile)
     
    234235        (ensure-positive-fixnum n 'bloom-filter:desired-m)
    235236        (let loop ([m n])
    236                 (let* ([k (:optional r (bloom-filter:optimum-k n m))]
     237                (let* ([k (optional r (bloom-filter:optimum-k n m))]
    237238                                         [calc-p (bloom-filter:p-false-positive k n m)])
    238239                        (if (<= calc-p p)
     
    251252        (bloom-filter:p-false-positive
    252253                (%bloom-filter-k bf)
    253                 (:optional n (%bloom-filter-n bf))
     254                (optional n (%bloom-filter-n bf))
    254255                (%bloom-filter-m bf)) )
    255256
Note: See TracChangeset for help on using the changeset viewer.