Scheme で複数のファイルに対して call-with-input-file する場合、

(call-with-input-file file1
　(lambda (p1)
　　(call-with-input-file file2
　　　(lambda (p2)

みたいに書くとか、そう展開されるマクロを書くしかないですか？