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

(include "levenshtein-cost-interface")

(module levenshtein-cost-fixnum COST-OPER

(import scheme
	(chicken base)
	(chicken type)
	(chicken fixnum))

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

(define cost-add fx+)
(define cost-multiply fx*)
(define cost-minimum fxmin)
(define cost-less-than fx<)
(define cost-zero 0)
(define cost-positive-infinity most-positive-fixnum)
(define (fixnum->cost x) x)

) ;module levenshtein-cost-fixnum