diff options
| author | jao <jao@gnu.org> | 2024-03-12 14:48:42 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-03-12 14:48:42 +0000 |
| commit | 635d312b9084fa2d4eea4b57f20a7ad5197da2ba (patch) | |
| tree | 8b418a9d192c1d92d14b24568cf0bd55dee2907e | |
| parent | 6e0811c75d13c3c8488e7a11a018e1ea2ae3288a (diff) | |
| download | geiser-guile-635d312b9084fa2d4eea4b57f20a7ad5197da2ba.tar.gz geiser-guile-635d312b9084fa2d4eea4b57f20a7ad5197da2ba.tar.bz2 | |
allowing a guile binary that writes to stdout (fixes #42)
| -rw-r--r-- | geiser-guile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/geiser-guile.el b/geiser-guile.el index eec336f..ac5e6b4 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -1,6 +1,6 @@ ;;; geiser-guile.el --- Guile and Geiser talk to each other -*- lexical-binding: t; -*- -;; Copyright (C) 2009-2023 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009-2024 Jose Antonio Ortega Ruiz ;; Start date: Sun Mar 08, 2009 23:03 ;; Author: Jose Antonio Ortega Ruiz (jao@gnu.org) @@ -558,7 +558,7 @@ This function uses `geiser-guile-init-file' if it exists." (let ((shell-command-switch "-c") (shell-file-name "sh")) (shell-command-to-string - (format "%s -c %s" + (format "%s -c %s 2>/dev/null" (geiser-guile--binary) (shell-quote-argument "(display (version))"))))) |