ある必要があって、複数のリソースから最初に返答の得られたものを値として採用する、という構文を作ってみました。実装: (define-syntax spawn (syntax-rules () ((spawn . e) (thread (lambda () . e))))) ;; cf: http://scheme.com/tspl4/examples.html#.…

ループ処理を書く時などに、全く同じ関数呼び出しを複数回書くことがあると思うんですが、それがどうも面倒*1なので、ローカル関数を手軽に作る構文を書いてみました。マクロ: (require "mlfun.ss") (define-syntax define-flet (syntax-rules () ((define-f…