;;;; levenshtein-cost-number.scm -*- Scheme -*-
;;;; Kon Lovett, Mar '20
;;;; Kon Lovett, Apr '12
;;;; Kon Lovett, May '06

(include "levenshtein-cost-interface")
(module levenshtein-cost-number COST-OPER

(import scheme
	(chicken base)
	(chicken type)
	(only (chicken fixnum) most-positive-fixnum))

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

(define cost-add +)
(define cost-multiply *)
(define cost-minimum min)
(define cost-less-than <)
(define cost-zero 0)
(define cost-positive-infinity most-positive-fixnum) ;FIXME +inf.0 but type contagion
(define (fixnum->cost x) x)

) ;module levenshtein-cost-number