From d7a1a631000d14584938d733c1504bdb715ac7b9 Mon Sep 17 00:00:00 2001 From: Ahmed Khanzada Date: Mon, 21 Aug 2023 21:23:54 -0400 Subject: [PATCH 1/3] Check if geiser-racket--language is bound --- le-scheme.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/le-scheme.el b/le-scheme.el index 667e2465..cc2e389f 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 (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)))) From bc82a5c9d057cb959d67d995ae86655369a0fbe2 Mon Sep 17 00:00:00 2001 From: Ahmed Khanzada Date: Mon, 21 Aug 2023 21:28:12 -0400 Subject: [PATCH 2/3] fboundp --- le-scheme.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/le-scheme.el b/le-scheme.el index cc2e389f..3c3bf691 100644 --- a/le-scheme.el +++ b/le-scheme.el @@ -45,7 +45,7 @@ (run-geiser geiser-impl--implementation) (call-interactively 'run-geiser)) (geiser-mode 1))) - (when (and (and (boundp 'geiser-racket--language) + (when (and (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))) From a73573951202a9c8689b5e5adb7fa14bc2991045 Mon Sep 17 00:00:00 2001 From: Ahmed Khanzada Date: Sat, 16 Sep 2023 10:49:50 -0400 Subject: [PATCH 3/3] Consolidating "and" --- le-scheme.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/le-scheme.el b/le-scheme.el index 3c3bf691..aaac78b1 100644 --- a/le-scheme.el +++ b/le-scheme.el @@ -45,8 +45,8 @@ (run-geiser geiser-impl--implementation) (call-interactively 'run-geiser)) (geiser-mode 1))) - (when (and (and (fboundp 'geiser-racket--language) - (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))))