find-foldからfind-fold2にすることで、procを継続渡し方式に変更できた。 だけど、find-fold2自身は(null? lis)が真となるときに、依然として「seed（=戻り値）を返却する」というCall-Return方式になっている。 これを継続渡し方式に修正してみよう、との…