From 1f1ee00402edcaad21e471e9f378425284ac3d78 Mon Sep 17 00:00:00 2001 From: Peter 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