Merge Geiser fix

Author: enzuru

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))))