;;;; 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))

(include "levenshtein-cost-flonum.types")

(define cost-add fp+)
(define cost-multiply fp*)
(define cost-minimum fpmin)
(define cost-less-than fp<)
(define cost-zero 0.0)
(define cost-positive-infinity +inf.0)
(define (fixnum->cost x) (exact->inexact x))

) ;module levenshtein-cost-flonum