yasnippet for Scheme を書き始めよう

yasnippet の便利さを id:nishiohirokazu に教えてもらったので練習がてら書いてみる。
もっと複雑なものを書いてみようと思うのだけど、どういう場面で便利かが分からないのでまずは簡単なものから。

あとでまとめて本家に投稿しようと思います。こういうのが欲しいよとかあったらぜひコメントください。

(yas/define 'scheme-mode "(if" "(if ${pred}
    ${then}
    ${else}) $0")

(yas/define 'scheme-mode "(memq" "(memq ${obj} ${list}) $0")