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

(import scheme
	(chicken module))

(define-interface SEQUENCE-OPER (
  check-sequence              ;symbol *  #!optional (or symbol string) -> sequence
  sequence-length             ;sequence -> fixnum
  sequence-prefix-length      ;procedure sequence sequence #!optional fixnum fixnum fixnum fixnum -> fixnum
  sequence-suffix-length      ;procedure sequence sequence #!optional fixnum fixnum fixnum fixnum -> fixnum
  sequence-for-each           ;procedure sequence #!rest sequence -> fixnum
  subsequence/shared))        ;sequence fixnum #!optional fixnum -> sequence