From 37ca4fbb2fb1accdd20869f52ea83302364a44df Mon Sep 17 00:00:00 2001 From: liuxueyang Date: Wed, 5 Apr 2023 23:18:39 +0800 Subject: [PATCH] Fix undefined function geiser-racket--language when using mit-scheme --- le-scheme.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/le-scheme.el b/le-scheme.el index 667e2465..05c0308e 100644 --- a/le-scheme.el +++ b/le-scheme.el @@ -45,7 +45,8 @@ (run-geiser geiser-impl--implementation) (call-interactively 'run-geiser)) (geiser-mode 1))) - (when (and (not (member (geiser-racket--language) '(plait))) + (when (and (eq geiser-impl--implementation 'racket) + (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))))