summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-20 22:40:36 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-20 22:40:36 +0200
commit54484ab8145b2bed708e1e51f7d88b4b445e9fbc (patch)
tree220bf9362d3ce7c092028de4a5f367ea8ba36e95 /elisp/geiser-guile.el
parent936a20e354b03c8a22fd8447c64e8a0eaef0ee65 (diff)
downloadgeiser-guile-54484ab8145b2bed708e1e51f7d88b4b445e9fbc.tar.gz
geiser-guile-54484ab8145b2bed708e1e51f7d88b4b445e9fbc.tar.bz2
Fixes for module names reading and evaluation result display.
Diffstat (limited to 'elisp/geiser-guile.el')
-rw-r--r--elisp/geiser-guile.el5
1 files changed, 0 insertions, 5 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index f4362ca..e6e0c9a 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -85,9 +85,6 @@ This function uses `geiser-guile-init-file' if it exists."
;;; Evaluation support:
(defun geiser-guile-geiser-procedure (proc)
- "Translate a bare procedure symbol to one executable in Guile's
-context. Return NULL for unsupported ones; at the very least,
-EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported."
(let ((proc (intern (format "ge:%s"
(if (and geiser-guile-use-compiler-in-eval
(eq proc 'eval))
@@ -99,8 +96,6 @@ EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported."
"(define-module +\\(([^)]+)\\)")
(defun geiser-guile-get-module (&optional module)
- "Return a scheme datum representing the current module.
-If MODULE is provided, transform it to such a datum."
(cond ((null module)
(save-excursion
(goto-char (point-min))