;;;  -*- Hen -*-
;;;; levenshtein-cost-generic.scm
;;;; Kon Lovett, May '06
;;;; Kon Lovett, Apr 2012

(include "levenshtein-cost-interface")

(module levenshtein-cost-generic COST-OPER

  (import scheme chicken)

(define cost-add +)
(define cost-multiply *)
(define cost-minimum min)
(define cost-less-than <)
(define cost-positive-infinity +inf.0)

) ;module levenshtein-cost-generic