From 451a7ed012c6aadb690f8959711f18b004b5e465 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Wed, 11 Aug 2021 23:27:06 +0530 Subject: [PATCH] [hydra] tweak Scheme implementation discovery --- init.org | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/init.org b/init.org index ce71623..6fa4527 100644 --- a/init.org +++ b/init.org @@ -1723,9 +1723,9 @@ Don't try to check if there are files with a certain extension...it will lead to (my-lilypond-hydra/body)) ((and (featurep 'geiser) (bound-and-true-p geiser-mode)) - (cond ((equal 'chicken geiser-impl--implementation) + (cond ((eq 'chicken geiser-scheme-implementation) (my-chicken-hydra/body)) - ((equal 'guile geiser-impl--implementation) + ((eq 'guile geiser-scheme-implementation) (cp-guile/body)) (t (error "Couldn't detect Scheme implementation.")))) ((derived-mode-p 'lisp-mode 'slime-repl-mode)