From 21dcac5de1c99bbdfd81eb5de6e50fb002be4535 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 18 Dec 2021 21:01:49 +0000 Subject: 'debug commands so that each impl can take care of them --- elisp/geiser-eval.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-eval.el') diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index 80a40fd..7b7ab64 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -69,6 +69,10 @@ module-exports, autodoc, callers, callees and generic-methods.") ;;; Code formatting: +(defsubst geiser-eval--debug (cmd) + (geiser-eval--form 'debug + (geiser-eval--scheme-str file))) + (defsubst geiser-eval--load-file (file) (geiser-eval--form 'load-file (geiser-eval--scheme-str file))) @@ -103,7 +107,8 @@ module-exports, autodoc, callers, callees and generic-methods.") ((eq code :f) "#f") ((eq code :t) "#t") ((listp code) - (cond ((eq (car code) :eval) (geiser-eval--eval (cdr code))) + (cond ((eq (car code) :debug) (geiser-eval--debug (cdr code))) + ((eq (car code) :eval) (geiser-eval--eval (cdr code))) ((eq (car code) :comp) (geiser-eval--comp (cdr code))) ((eq (car code) :load-file) (geiser-eval--load-file (cadr code))) -- cgit v1.2.3