   ;; (case-sensitive geiser-chibi-case-sensitive-p)
   )
 
-;; notes: (available-modules) in (chibi modules)
-;; (env-exports (module-env (find-module '(scheme char)))), modules: (meta) (chibi modules) (chibi)
-
 (geiser-impl--add-to-alist 'regexp "\\.scm$" 'chibi t)
 (geiser-impl--add-to-alist 'regexp "\\.sld$" 'chibi t)
 
                                 (shell-quote-argument binary)))
                        " ")))

;; (defconst geiser-chibi--path-rx "^In \\([^:\n ]+\\):\n")
(defun geiser-chibi--startup (remote)
  (let ((geiser-log-verbose-p t))
    (compilation-setup t)
    ;; (when (and (stringp geiser-chibi-source-directory)
    ;;            (not (string-empty-p geiser-chibi-source-directory)))
    ;;   (geiser-eval--send/wait (format "(geiser:set-chibi-scheme-source-directory %S)" geiser-chibi-source-directory)))
    ))


(defun geiser-chibi--parameters ()
  "Return a list with all parameters needed to start Chibi Scheme.
This function uses `geiser-chibi-init-file' if it exists."
  `("-I" ,(expand-file-name "chibi/geiser/" geiser-scheme-dir)
    "-m" "geiser")
  )
