#今までundocumentedだったので変えちゃったんですが、影響大きいですか? 正式にはreal-* でいきたいと思います。影響大きいようでしたら互換性バインディング入れます。
#compat.real-trigというモジュールで%sinなどのバインディングをimportできるようにしました。
#ありがとうございます。
#新しい Gauche で動かす場合には、(use compat.real-trig) を追加で良いと思いますが、
古い Gauche で動かした場合に、(use compat.real-trig) でエラーにしないよい方法はありますか？
以前だと、
(define-module module-A)
(import module-A)
(define *module-A-loaded* (load "module-A" :error-if-not-found #f))
みたいなことをしていたようです。
あとは、
(if (version>=? (gauche-version) "0.9.13")
(eval '(use module-A) (current-module)))
とか。
#cond-expand
#cond-expandでversionの比較演算ができるようにしたいなと前から思ってはいるんですが、今のところあまり綺麗にやる方法はないですね…
#(use gauche.version)
(define-macro (load-real-trig)
(if (version<=? (gauche-vresion) "0.9.13")
`(use compat.real-trig)
#f))
(load-real-trig)#とかもできますが、もうちょいスマートに書きたいですね。
#(cond-expandでversion比較、の導入に躊躇しているのは、それをやるとsrfi-0と互換にならないことです。)
Gauche > Archives > 2023/04/29