diff --git a/le-scheme.el b/le-scheme.el index 667e2465..aaac78b1 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 (fboundp '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))))