gappend-map を gconcatenate で / Re: 特定のビット列が現れる場所を探す (Gauche)
Gauche の最新 HEAD で gconcatenate 手続きが追加されました。
というわけで、gappend-map と byte-generator->bit-generator は以下のように書き直せます。
ただし、gappend-map は proc 内で返す物がリストではなくジェネレータになります。
(define (gappend-map proc . gens) (gconcatenate (apply gmap proc gens))) (define (byte-generator->bit-generator gen) (gappend-map (^x (list->generator (integer->list x 8))) gen))