Permalink
Browse files

Fix comment.

  • Loading branch information...
dchest committed Nov 30, 2010
1 parent fbcea5d commit 614f48f1cd9fa4da481f442bfea4f47bfd949b2a
Showing with 1 addition and 1 deletion.
  1. +1 −1 bayes.rkt
View
@@ -113,9 +113,9 @@
(sub1 (vector-length vec))))
(define (train! text cat)
; Tokens
(let ([idx (or (vector-member cat *categories*)
(vector-expand! *categories* cat))])
; Tokens
(for-each (lambda (w)
(hash-inc! *totals* idx)
(hash-inc! (hash-ref! *tokens* w (make-hasheqv)) idx))

0 comments on commit 614f48f

Please sign in to comment.