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

(import scheme
	(chicken module))

(define-interface COST-OPER (
  cost-multiply                 ;cost cost -> cost
  cost-add                      ;cost cost -> cost
  cost-minimum                  ;cost cost -> cost
  cost-less-than                ;
  cost-zero                     ;
  cost-positive-infinity        ;cost
  fixnum->cost))                ;