#(^_'()) ;引数を無視して空リストを返す関数を書いたら顔文字みたいだなと思った
#左目が腫れていて痛々しい感じに見える
#虫歯でほっぺが腫れたのかも。
#ところで、引数を無視して定数を返すのは、そういう手続きがあってもよさそうな気がしますね。 Haskell でいう const みたいなの。
#何度か足そうと考えたことはあるんですが、Haskellと違って引数がゼロ個のthunkが欲しい場合と引数1個で無視する場合が半々くらいあって (もっと多い引数も考えられるがレア)、かといって可変長引数にするとオーバヘッドが生じるのでどうするべと考えつつ今に至ります。
#待てよ、今ならcase-lambdaに展開すればオーバヘッドはそれほどでもないかも。
#gosh> (define foo 42)
foo
gosh> (with-module gauche
(define-syntax m
(er-macro-transformer
(^ (e r c)
(r 'foo)))))
#<undef>
gosh> (with-module gauche (m))
42
#er-macro-transformer が with-module を関知していない気がします。fooがuser::foo的なものにrenameされているっぽいのですが、gauche::foo的なものにrenameされることを期待します。
#http-get で HAMELN (https://novel.syosetu.org/ ) にアクセスしたときに TLS handshake failed: -40 というエラーになります。 いくつか https なサイトで試してみたのですがエラーになるのは HAMELN だけだったので何か変なことが起こっている可能性もありますが…… #おっと、 HAMELN のトップページは https://syosetu.org/ でした。 これでもやっぱりエラーになりますけど。