tree-map-fold

tree-map-foldとfoldで引数の順番が違ってちょっとはまった．
foldは(fold proc seed lis ...)だけどtree-map-foldは(tree-map-fold tree-map proc seed)．
まぁ，tree-map-foldにtree-mapを沢山渡したりはあんまりしない気はするけど，これはどうなんだろう…tree-mapが最初なのは，メソッド系のと合わせてるのかな．多重ディスパッチでも，selfっぽい奴は最初に書くのが普通なんだろうか．