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

(include "levenshtein-cost-interface")

(module levenshtein-cost-numbers COST-OPER

  (import scheme chicken)

  (use numbers)

(: cost-multiply cost cost -> cost)
(: cost-add cost cost -> cost)
(: cost-minimum cost cost -> cost)
(: cost-less-than cost cost -> cost)
(: cost-positive-infinity cost)

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

) ;module levenshtein-cost-numbers