From 1f1ee00402edcaad21e471e9f378425284ac3d78 Mon Sep 17 00:00:00 2001
From: Peter <craven@gmx.net>
Date: Sat, 30 Apr 2016 19:27:14 +0200
Subject: Clean-up elisp code

---
 elisp/geiser-chez.el | 21 ---------------------
 1 file changed, 21 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index f75ba2d..56943b8 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -43,7 +43,6 @@
 (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."
-;;  `("--load" ,(expand-file-name "chez/geiser/load.scm" geiser-scheme-dir))
   `(,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir))
   )
 
@@ -71,9 +70,6 @@ This function uses `geiser-chez-init-file' if it exists."
      (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)
@@ -84,16 +80,6 @@ This function uses `geiser-chez-init-file' if it exists."
            (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
       (max (save-excursion (beginning-of-line) (point))
@@ -114,13 +100,9 @@ This function uses `geiser-chez-init-file' if it exists."
    (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))")))
 
 ;;; Implementation definition:
@@ -147,9 +129,6 @@ This function uses `geiser-chez-init-file' if it exists."
   ;; (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)
 
-- 
cgit v1.2.3