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

             (car (geiser-syntax--read-from-string module))
           (error :f)))
        (t :f)))

;; (defun geiser-chez--module-cmd (module fmt &optional def)
;;   (when module
;;     (let* ((module (geiser-chez--get-module module))
;;            (module (cond ((or (null module) (eq module :f)) def)
;;                          (t (format "%s" module)))))
;;       (and module (format fmt module)))))

;; (defun geiser-chez--enter-command (module)
;;   (geiser-chez--module-cmd module "(geiser:ge '%s)" "()"))

(defun geiser-chez--symbol-begin (module)
  (if module

   (format "%s --version"
           (shell-quote-argument binary))))

(defun geiser-chez--startup (remote)
  (let ((geiser-log-verbose-p t))
    (compilation-setup t)
    (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))")))

