[nongnu] elpa/geiser-guile a77bf8b 193/284: Elisp buggettes and warnings

[Philip Kaludercic]

branch: elpa/geiser-guile
commit a77bf8bc32f6c795b4399699e5bdc56518d7c3ff
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Elisp buggettes and warnings
---
 elisp/geiser-guile.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index f13fab6..1c39f14 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -139,8 +139,9 @@ This function uses `geiser-guile-init-file' if it exists."
              :f)))
         ((listp module) module)
         ((stringp module)
-         (or (ignore-errors (car (geiser-syntax--read-from-string module)))
-             :f))
+         (condition-case nil
+             (car (geiser-syntax--read-from-string module))
+           (error :f)))
         (t :f)))
 
 (defun geiser-guile--module-cmd (module fmt &optional def)
@@ -251,7 +252,7 @@ it spawn a server thread."
   (font-lock-add-keywords nil
                           `((,geiser-guile--path-rx 1
                                                     compilation-error-face)))
-  (geiser-eval--send/result
+  (geiser-eval--send/wait
    `(:scm ,(format "(set! %%load-path (cons %S %%load-path))"
                    (expand-file-name "guile/" geiser-scheme-dir))))
   (geiser-guile-update-warning-level))