Changeset 5443 in project

Timestamp:

08/16/07 05:29:13 (13 years ago)

Author:

Kon Lovett

Message:

Chg for misc-extn 3.0

Location:

bloom-filter

Files:

• bloom-filter-eggdoc.scm (modified) (1 diff)
• bloom-filter.html (modified) (1 diff)
• bloom-filter.scm (modified) (3 diffs)
• bloom-filter.setup (modified) (1 diff)

bloom-filter/bloom-filter-eggdoc.scm

@@ -32 +32 @@
                 (author (url "mailto:klovett@pacbell.net" "Kon Lovett"))
                 (history
+                        (version "1.101" "Dropped :optional")
                         (version "1.1" "Support for \"optimal K\"")
                         (version "1.0" "Exports")

bloom-filter/bloom-filter.html

@@ -158 +158 @@
 <h3>Version</h3>
 <ul>
+<li>1.101 Dropped :optional</li>
 <li>1.1 Support for &quot;optimal K&quot;</li>
 <li>1.0 Exports</li>

bloom-filter/bloom-filter.scm

@@ -15 +15 @@
 ;; - No ability to add message-digest-primitives at runtime.
 
-(use srfi-1 utils iset message-digest hash-utils lookup-table misc-extn mathh-int)
+(use srfi-1 utils)
+(use iset message-digest hash-utils lookup-table misc-extn-control misc-extn-numeric misc-extn-record mathh-int)
 
 (eval-when (compile)
@@ -234 +235 @@
         (ensure-positive-fixnum n 'bloom-filter:desired-m)
         (let loop ([m n])
-                (let* ([k (:optional r (bloom-filter:optimum-k n m))]
+                (let* ([k (optional r (bloom-filter:optimum-k n m))]
                                          [calc-p (bloom-filter:p-false-positive k n m)])
                         (if (<= calc-p p)
@@ -251 +252 @@
         (bloom-filter:p-false-positive
                 (%bloom-filter-k bf)
-                (:optional n (%bloom-filter-n bf))
+                (optional n (%bloom-filter-n bf))
                 (%bloom-filter-m bf)) )
 

bloom-filter/bloom-filter.setup

@@ -1 +1 @@
 (include "setup-header")
+
+(required-extension-version 'misc-extn "3.0")
 
 (copy-to-repository "hash-primitives-info")
 
-(install-dynld+docu bloom-filter "1.1")
+(install-dynld+docu bloom-filter "1.101")
 
 (install-test '("bloom-filter-test.scm" "bloom-filter-word-list.txt"))