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

(include "levenshtein-cost-interface")

(module levenshtein-cost-fixnum COST-OPER

  (import scheme chicken)

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

) ;module levenshtein-cost-fixnum