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

(import scheme)
(import (chicken base))

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