From 0a7d55f34f09776a16d3e81521ee8cd081f3b717 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 20 Dec 2021 20:43:49 +0000 Subject: Tweaks for boundary conditions Like quitting a REPL right after opening it, or calling evaluation functions in the wrong, non-scheme buffer. --- elisp/geiser-eval.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'elisp/geiser-eval.el') 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))) -- cgit v1.2.3