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))