Ihor Radchenko <[email protected]> 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č <[email protected]> [he/him]
Studenohorská 25
84103 Bratislava
Slovakia
