;;;; levenshtein-sequence-interface.types.scm -*- Scheme -*-
;;;; Kon Lovett, Aug '20

;; include-relative File

(: 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 -> void))
(: subsequence/shared (sequence fixnum #!optional fixnum -> sequence))