;;;; levenshtein-cost-flonum.scm -*- Scheme -*-
;;;; Kon Lovett, Aug '20

(include "levenshtein-cost-interface")

(module levenshtein-cost-flonum COST-OPER

(import scheme
	(chicken base)
	(chicken type)
	(chicken flonum))

(define-type cost float)
(include "levenshtein-cost-interface.types")

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

) ;module levenshtein-cost-flonum