(import (chicken load))
(load-verbose #f)
(let ()
  (import (chicken format))
  (import (chicken process-context))
  (unless (get-environment-variable "INSIDE_EMACS")
    (import breadline)
    (import breadline-scheme-completion)
    (import (only chicken-doc)) ; no imports, ,doc only
    (history-file (format "~a/.csi_history" (get-environment-variable "HOME")))
    (stifle-history! 10000)
    (completer-word-break-characters-set! "\"\'`;|(")
    (completer-set! scheme-completer)
    (basic-quote-characters-set! "\"|")
    (variable-bind! "blink-matching-paren" "on")
    (paren-blink-timeout-set! 200000)
    (current-input-port (make-readline-port))))