/[meta-cvs]/meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp
ViewVC logotype

Diff of /meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by kaz, Mon Jul 1 16:16:25 2002 UTC revision 1.8 by kaz, Sat Jul 6 17:05:44 2002 UTC
# Line 201  Line 201 
201        (let ((common-word-hash (make-hash-table :test #'equalp)))        (let ((common-word-hash (make-hash-table :test #'equalp)))
202          (determine-common-words common-word-hash added-files)          (determine-common-words common-word-hash added-files)
203          (determine-common-words common-word-hash removed-files)          (determine-common-words common-word-hash removed-files)
204          (let ((threshold (min 5 (* 1/5 (+ (length added-files)          (let ((threshold (max 5 (* 1/5 (+ (length added-files)
205                                            (length removed-files))))))                                            (length removed-files))))))
206            (eliminate-common-words common-word-hash added-files threshold)            (eliminate-common-words common-word-hash added-files threshold)
207            (eliminate-common-words common-word-hash removed-files threshold)))            (eliminate-common-words common-word-hash removed-files threshold)))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5