(module srfi-130
  (string-cursor? string-cursor-start string-cursor-end
   string-cursor-prev string-cursor-next
   string-cursor-forward string-cursor-back
   string-cursor=? string-cursor<? string-cursor>?
   string-cursor<=? string-cursor>=? string-cursor>?
   string-cursor-diff string-cursor->index string-index->cursor

   string-null? string-every string-any

   string-tabulate string-unfold string-unfold-right
   string->list/cursors string->vector/cursors
   reverse-list->string string-join

   string-ref string-ref/cursor substring/cursors string-copy/cursors
   string-take string-drop string-take-right string-drop-right
   string-pad string-pad-right
   string-trim string-trim-right string-trim-both

   string-prefix-length string-suffix-length
   string-prefix? string-suffix?

   string-index string-index-right string-skip string-skip-right
   string-contains string-contains-right

   string-reverse string-concatenate string-concatenate-reverse
   string-fold string-fold-right string-for-each-cursor
   string-replicate string-count string-replace
   string-split string-filter string-remove)

  (import scheme
          (only (chicken base) include error receive let-optionals*
                               case-lambda exact-integer? assert)
          (chicken module)
          (chicken platform)
          ;; Workaround. Remove when (srfi 13) fixes its export list.
          (only (chicken string) reverse-list->string)
          (only (srfi 1) last-pair)
          (except (srfi 13) string-index string-index-right string-skip
                            string-skip-right)
          (prefix (only (srfi 13) string-index string-index-right)
                  srfi-13:)
          (only r7rs string->vector)
          (only (srfi 141) euclidean-remainder))

  (register-feature! 'srfi-130)

  (include "srfi/130.body.scm")
)