Re: Avoid "Scheme implementation" prompt on export

[Bruno Barbier]

Roi Martin <jroi.mar...@gmail.com> writes:

>> I tried with:
>>
>> #+begin_src scheme :scheme chez
>>   (+ 3 4)
>> #+end_src
>>
>> and also with ':scheme racket'.
>>
>> Unfortunately, it does not seem to work when exporting the document.
>>
>> Thanks for your help!
>>
>>         Roi

I've installed chez and racket.  Indeed, the argument :session
if half-ignored.

I've attached a quick ugly hack; with that change, it is now working
for me.

    #+begin_src scheme :scheme racket
      (banner)
    #+end_src

    #+RESULTS:
    : Welcome to Racket v8.14 [cs].\n

    (setq-default geiser-chez-binary "chezscheme")
    #+begin_src scheme :scheme chez 
      (scheme-version)
    #+end_src

    #+RESULTS:
    : Chez Scheme Version 10.0.0

Could you try it?

Bruno


>From dbb3068bd3e22ee8d38c99c69061b26d3a4064d6 Mon Sep 17 00:00:00 2001
From: Bruno BARBIER <brubar...@gmail.com>
Date: Tue, 15 Oct 2024 12:42:44 +0200
Subject: [PATCH] ob-scheme: Hack to pass the implementation to 'geiser-mode'

---
 lisp/ob-scheme.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index 29fdcd1ec..7bf8acf6c 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -184,7 +184,9 @@ (defun org-babel-scheme-execute-with-geiser (code output impl repl &optional hos
       (newline)
       (let ((beg (point)))
         (insert code)
-        (geiser-mode)
+        ;; Hack to pass our 'impl' to 'geiser-mode'.
+        (let ((geiser-impl--implementation impl))
+          (geiser-mode))
         (let ((geiser-repl-window-allow-split nil)
 	      (geiser-repl-use-other-window nil))
 	  (let ((repl-buffer (save-current-buffer
-- 
2.45.2