Permalink
Browse files

Use eqv?-based hash for hashes per token.

  • Loading branch information...
dchest committed Nov 22, 2010
1 parent baed269 commit 24bf9c295dbfd654d0cb22516df4bc0d854a9ac5
Showing with 1 addition and 1 deletion.
  1. +1 −1 bayes.rkt
View
@@ -118,7 +118,7 @@
(vector-expand! *categories* cat))])
(for-each (lambda (w)
(hash-inc! *totals* idx)
(hash-inc! (hash-ref! *tokens* w (make-hash)) idx)))
(hash-inc! (hash-ref! *tokens* w (make-hasheqv)) idx)))
(get-tokens text))
; Readabilities
(let ([cur-rdb (readability-score text)])

0 comments on commit 24bf9c2

Please sign in to comment.