    (format "%s --version"
            (shell-quote-argument binary))))
 
-;; (defconst geiser-chez--path-rx "^In \\([^:\n ]+\\):\n")
 (defun geiser-chez--startup (remote)
   (let ((geiser-log-verbose-p t))
     (compilation-setup t)
-    ;; (when (and (stringp geiser-chez-source-directory)
-    ;;            (not (string-empty-p geiser-chez-source-directory)))
-    ;;   (geiser-eval--send/wait (format "(geiser:set-chez-scheme-source-directory %S)" geiser-chez-source-directory)))
     (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) (output . \"\"))) (newline))")))
  

             (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

     (let ((form (mapconcat 'identity args " ")))
       (format "(geiser:%s %s)" proc form)))))

(defun geiser-chez--get-module (&optional module)
  (cond ((null module)
         :f)
