ensure-reduced

(ensure-reduced x)

x がすでに reduced ならそのまま、そうでなければ (reduced x) を返します。 take のトランスデューサーが最後の入力の後に返すものです。値としては1引数の関数です。