(define-library (lsp-server document) (export make-document read-document document-contents document-length document-insert document-contract document-num-lines line/char->pos string->document) (import (scheme base) (scheme file) (scheme write) (lsp-server private)) (cond-expand (guile (import (srfi srfi-13) (srfi srfi-28) (srfi srfi-69))) (else (import (only (chicken port) with-input-from-string) (only (chicken base) case-lambda) (srfi 28) (srfi 69) (srfi 130)))) (include "document.scm"))