Tweaks for boundary conditions

Like quitting a REPL right after opening it, or calling evaluation
functions in the wrong, non-scheme buffer.

1 files changed, 2 insertions, 6 deletions

diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index f5cbccd..2ee451c 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -25,7 +25,6 @@
 ;;; Plug-able functions:
 
 (defvar-local geiser-eval--get-module-function nil)
-(set-default 'geiser-eval--get-module-function nil)
 
 (defvar geiser-eval--get-impl-module nil)
 (geiser-impl--register-local-method
@@ -41,7 +40,7 @@ value.")
          (funcall geiser-eval--get-impl-module module))
         (t module)))
 
-(defvar geiser-eval--geiser-procedure-function)
+(defvar geiser-eval--geiser-procedure-function nil)
 (geiser-impl--register-local-method
  'geiser-eval--geiser-procedure-function 'marshall-procedure 'identity
  "Function to translate a bare procedure symbol to one executable
@@ -66,14 +65,11 @@ module-exports, autodoc, callers, callees and generic-methods.")
   (when (not (geiser-eval--supported-p (car args)))
     (error "Sorry, the %s scheme implementation does not support Geiser's %s"
            geiser-impl--implementation (car args)))
-  (apply geiser-eval--geiser-procedure-function args))
+  (apply (or geiser-eval--geiser-procedure-function 'ignore) args))
 
 
 ;;; Code formatting:
 
-(defsubst geiser-eval--debug (cmd)
-  (geiser-eval--form 'debug (geiser-eval--scheme-str cmd)))
-
 (defsubst geiser-eval--load-file (file)
   (geiser-eval--form 'load-file (geiser-eval--scheme-str file)))