      (let ((form (mapconcat 'identity args " ")))
        (format "(geiser:%s %s)" proc form)))))
 
-;; (defconst geiser-chez--module-re
-;;   ".*;; package: +\\(([^)]*)\\)")
-
 (defun geiser-chez--get-module (&optional module)
   (cond ((null module)
          :f)

  ;; (case-sensitive geiser-chez-case-sensitive-p)
  )

;; notes: (available-modules) in (chez modules)
;; (env-exports (module-env (find-module '(scheme char)))), modules: (meta) (chez modules) (chez)

(geiser-impl--add-to-alist 'regexp "\\.ss$" 'chez t)
(geiser-impl--add-to-alist 'regexp "\\.def$" 'chez t)

(defun geiser-chez--parameters ()
  "Return a list with all parameters needed to start Chez Scheme.
This function uses `geiser-chez-init-file' if it exists."
  `(,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir))
  )

