diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-20 22:40:36 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-20 22:40:36 +0200 |
| commit | 54484ab8145b2bed708e1e51f7d88b4b445e9fbc (patch) | |
| tree | 220bf9362d3ce7c092028de4a5f367ea8ba36e95 | |
| parent | 936a20e354b03c8a22fd8447c64e8a0eaef0ee65 (diff) | |
| download | geiser-guile-54484ab8145b2bed708e1e51f7d88b4b445e9fbc.tar.gz geiser-guile-54484ab8145b2bed708e1e51f7d88b4b445e9fbc.tar.bz2 | |
Fixes for module names reading and evaluation result display.
| -rw-r--r-- | elisp/geiser-guile.el | 5 |
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)) |