;;;  -*- Hen -*-
;;;; levenshtein-sequence-interface.scm
;;;; Kon Lovett, Apr 2012

(define-interface SEQUENCE-OPER (
  sequence-length             ;sequence -> number
  sequence-prefix-length      ;procedure sequence sequence #!rest sequence -> number
  sequence-suffix-length      ;procedure sequence sequence #!rest sequence -> number
  sequence-for-each           ;procedure sequence sequence #!rest sequence -> number
  subsequence/shared))        ;sequence -> sequence

(: sequence (or vector list string (struct shared-vector)))