From 47d3c25d7997b430fd6eb1a2ef8830c32a130021 Mon Sep 17 00:00:00 2001 From: Benj Date: Tue, 27 Dec 2022 12:17:01 +0100 Subject: [PATCH] Fix symbol undefined error --- le-scheme.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/le-scheme.el b/le-scheme.el index 667e2465..24bc9d5b 100644 --- a/le-scheme.el +++ b/le-scheme.el @@ -45,8 +45,10 @@ (run-geiser geiser-impl--implementation) (call-interactively 'run-geiser)) (geiser-mode 1))) - (when (and (not (member (geiser-racket--language) '(plait))) - (string-match "(\\(?:define\\|set!\\|struct\\)[ (]+\\(\\(?:\\w\\|\\s_\\)+\\)" str)) + (when (and + (boundp 'geiser-racket--language) + (not (member (geiser-racket--language) '(plait))) + (string-match "(\\(?:define\\|set!\\|struct\\)[ (]+\\(\\(?:\\w\\|\\s_\\)+\\)" str)) (let ((name (match-string 1 str))) (setq str (format "(begin %s %s)" str name)))) (with-current-buffer (geiser-repl--buffer-name geiser-impl--implementation)