diff options
| author | mathieu2em <math.per@hotmail.com> | 2019-08-26 13:36:39 -0400 |
|---|---|---|
| committer | mathieu2em <math.per@hotmail.com> | 2019-08-26 13:36:39 -0400 |
| commit | d7bcfde6303b420ca76d9364c6e8f2c6827112e6 (patch) | |
| tree | 6bef23bd01fe70664099e98e1e57b1469a6ed5b5 | |
| parent | 6db4fb2cd0ca86f27b8e08e15e8493a2d08d48f2 (diff) | |
| download | geiser-guile-d7bcfde6303b420ca76d9364c6e8f2c6827112e6.tar.gz geiser-guile-d7bcfde6303b420ca76d9364c6e8f2c6827112e6.tar.bz2 | |
fix the output redirection of gambit scheme interpreter
the gsi's output wasn't redirected to the right place
| -rw-r--r-- | elisp/geiser-gambit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el index b12fcb1..fb03b56 100644 --- a/elisp/geiser-gambit.el +++ b/elisp/geiser-gambit.el @@ -299,8 +299,8 @@ If `t', Geiser will use `next-error' to jump to the error's location." (let* ((v (geiser-gambit--version (geiser-gambit--binary))) (gambit-version (substring v 1 (string-width v)))) (if (version< gambit-version "4.9.4") - `( ,(expand-file-name "gambit/geiser/gambit.scm" geiser-scheme-dir) "-" ) - `( "gambit/geiser" "-")))) + `( "-:d-" ,(expand-file-name "gambit/geiser/gambit.scm" geiser-scheme-dir) "-" ) + `("-:d-" "gambit/geiser" "-")))) (defun connect-to-gambit () |