              (car (geiser-syntax--read-from-string module))
            (error :f)))
         (t :f)))
-
-;; (defun geiser-chibi--module-cmd (module fmt &optional def)
-;;   (when module
-;;     (let* ((module (geiser-chibi--get-module module))
-;;            (module (cond ((or (null module) (eq module :f)) def)
-;;                          (t (format "%s" module)))))
-;;       (and module (format fmt module)))))
-
-;; (defun geiser-chibi--enter-command (module)
-;;   (geiser-chibi--module-cmd module "(geiser:ge '%s)" "()"))
 
 (defun geiser-chibi--symbol-begin (module)
   (if module

  ;; (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)

(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")
  )
