[nongnu] elpa/geiser-chibi 41929c9 03/38: Clean-up elisp code

[Philip Kaludercic]

branch: elpa/geiser-chibi
commit 41929c9625884ac0e3d42abd280c670921b2d807
Author: Peter <craven@gmx.net>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Clean-up elisp code
---
 elisp/geiser-chibi.el | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/elisp/geiser-chibi.el b/elisp/geiser-chibi.el
index b0ef473..cb2577e 100644
--- a/elisp/geiser-chibi.el
+++ b/elisp/geiser-chibi.el
@@ -43,7 +43,6 @@
 (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."
-;;  `("--load" ,(expand-file-name "chibi/geiser/load.scm" geiser-scheme-dir))
   `("-I" ,(expand-file-name "chibi/geiser/" geiser-scheme-dir)
     "-m" "geiser")
   )
@@ -72,9 +71,6 @@ This function uses `geiser-chibi-init-file' if it exists."
      (let ((form (mapconcat 'identity args " ")))
        (format "(geiser:%s %s)" proc form)))))
 
-;; (defconst geiser-chibi--module-re
-;;   ".*;; package: +\\(([^)]*)\\)")
-
 (defun geiser-chibi--get-module (&optional module)
   (cond ((null module)
          :f)
@@ -85,16 +81,6 @@ This function uses `geiser-chibi-init-file' if it exists."
            (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
       (max (save-excursion (beginning-of-line) (point))
@@ -116,13 +102,9 @@ This function uses `geiser-chibi-init-file' if it exists."
                                  (shell-quote-argument binary)))
                         " ")))
 
-;; (defconst geiser-chibi--path-rx "^In \\([^:\n ]+\\):\n")
 (defun geiser-chibi--startup (remote)
   (let ((geiser-log-verbose-p t))
     (compilation-setup t)
-    ;; (when (and (stringp geiser-chibi-source-directory)
-    ;;            (not (string-empty-p geiser-chibi-source-directory)))
-    ;;   (geiser-eval--send/wait (format 
"(geiser:set-chibi-scheme-source-directory %S)" geiser-chibi-source-directory)))
     ))
 
 ;;; Implementation definition:
@@ -149,9 +131,6 @@ This function uses `geiser-chibi-init-file' if it exists."
   ;; (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)