branch: elpa/geiser-chez
commit 1f1ee00402edcaad21e471e9f378425284ac3d78
Author: Peter <cra...@gmx.net>
Commit: Jose Antonio Ortega Ruiz <j...@gnu.org>
Clean-up elisp code
---
elisp/geiser-chez.el | 21 ---------------------
1 file changed, 21 deletions(-)
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)
