From 54484ab8145b2bed708e1e51f7d88b4b445e9fbc Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 20 May 2009 22:40:36 +0200
Subject: Fixes for module names reading and evaluation result display.
---
elisp/geiser-guile.el | 5 -----
1 file changed, 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))
--
cgit v1.2.3