SICP問題3.50

問題はmapのstream版を穴埋めで定義せよ、ということで

(define (stream-map proc . argstreams)
  (if (stream-null? (car argstreams))
      the-empty-stream
      (cons-stream
       (apply proc (map stream-car argstreams))
       (apply stream-map
              (cons proc (map stream-cdr argstreams))))))

以上。
なんだけど、いろいろ適当に定義しても動かないのでググってみると、GaucheだとSICPの記述がうまく動作しないようです。
参考サイト

関数型言語の勉強にSICPを読もう - (48) 3章 - 標準部品化力、オブジェクトおよび状態 (192ページ) - ひげぽん OSとか作っちゃうかMona-
考えすぎると頭がかゆくなる SICP３章の解答 3.24?3.62
SICP 3.5 ストリームのところをgaucheでやるときの置き換えCommentsAdd Star - SICP読書記

とかイロイロ。

で
［SICP］ 3.5 ストリーム - 三十路プログラマのstream.scmを使わせて頂くことで何とか動くようになりました。多謝。

#http記法だとtitle文字列の中に[]が使えないのかぁ。知らなかった。