Org babel and Guile/Scheme: noise from... Geiser?

Org babel and Guile/Scheme: noise from... Geiser?

[tomas]

[-- Attachment #1: Type: text/plain, Size: 1156 bytes --]

Hi,

I'm trying to take some notes and explain things (to myself, to
others). So org babel it is, yay!

This is my first (well, second: `:results value' turned up empty):

  Blah, blah blah...

  #+name: mklst/define
  #+begin_src scheme
    (define-syntax mklst
      (lambda (s)
        (syntax-case s ()
          ((_ e ...) #'(list e ...)))))
  #+end_src

  More blah...

  #+name: mklst/test/0
  #+begin_src scheme :noweb yes :results drawer output
    <<mklst/define>>
    (format #t "~S\n" (mklst 'a 22 "foo"))
  #+end_src

But alas, the result has some noise:

  #+RESULTS: mklst/test/0
  :results:
  (a 22 "foo")
  While executing meta-command:
  Wrong type to apply: #t
  scheme@(guile-user)>
  :end:

(the first line is the expected result; the two following ones I don't
know where they come from, and the third is, AFAICS, noises from Geiser
chewing in the background (org babel seems to start a Geiser session).

Is that intended behaviour?

For the moment, I excise all that noise by hand, but this doesn't scale:
the computer is faster at producing noise than me removing it ;-)

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

Re: Org babel and Guile/Scheme: noise from... Geiser?

[Ihor Radchenko]

<tomas@tuxteam.de> writes:

> I'm trying to take some notes and explain things (to myself, to
> others). So org babel it is, yay!
>
> ...
> But alas, the result has some noise:
>
>   #+RESULTS: mklst/test/0
>   :results:
>   (a 22 "foo")
>   While executing meta-command:
>   Wrong type to apply: #t
>   scheme@(guile-user)>
>   :end:
>
> (the first line is the expected result; the two following ones I don't
> know where they come from, and the third is, AFAICS, noises from Geiser
> chewing in the background (org babel seems to start a Geiser session).
>
> Is that intended behaviour?

May be related to https://orgmode.org/list/m2czakgpk8.fsf@me.com.

Can someone with scheme installed try to reproduce on the latest main?

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>

Re: Org babel and Guile/Scheme: noise from... Geiser?

[Rudolf Adamkovič]

Ihor Radchenko <yantar92@posteo.net> writes:

> Can someone with scheme installed try to reproduce on the latest main?

With

    - GNU Emacs 29 (Git 55eabe96c9)
    - Org 9.6-pre (Git 2f5e7103e)
    - Geiser 20221016.2109
    - Geiser Guile 20220922.52

given

    #+name: mklst/define
    #+begin_src scheme
      (define-syntax mklst
        (lambda (s)
          (syntax-case s ()
            ((_ e ...) #'(list e ...)))))
    #+end_src
    
    #+name: mklst/test/0
    #+begin_src scheme :noweb yes :results drawer output
      <<mklst/define>>
      (format #t "~S\n" (mklst 'a 22 "foo"))
    #+end_src

I get

    #+RESULTS: mklst/test/0
    :results:
    (a 22 "foo")
    :end:

Rudy
-- 
"Genius is 1% inspiration and 99% perspiration."
-- Thomas Alva Edison, 1932

Rudolf Adamkovič <salutis@me.com> [he/him]
Studenohorská 25
84103 Bratislava
Slovakia