diff options
| -rw-r--r-- | elisp/geiser-chicken.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index b436d92..1af2afa 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -1,6 +1,6 @@ ;; geiser-chicken.el -- chicken's implementation of the geiser protocols -;; Copyright (C) 2014, 2015 Daniel Leslie +;; Copyright (C) 2014, 2015, 2019 Daniel Leslie ;; Based on geiser-guile.el by Jose Antonio Ortega Ruiz @@ -265,7 +265,7 @@ This function uses `geiser-chicken-init-file' if it exists." (eval `(begin (import chicken.platform) \ (chicken-version)))) \ (chicken-version)))'" - binary))) + (if (listp binary) (car binary) binary)))) (defun connect-to-chicken () "Start a Chicken REPL connected to a remote process." |