GaucheでURIからファイルGET

httpにしか対応してないし例外処理も甘いけど、書き捨て程度なら。
Gaucheでしかテストしてないので「Schemeで」とは言えないかな。
標準ライブラリに同等の機能は無いものなのか？

uri-get.scm

(use rfc.http)
(use rfc.uri)

(define (uri-get uri)
  (receive (code status body)
    (receive (scheme user-info hostname port path query frament)
      (uri-parse uri)
      (if (eq? path #f)
        (http-get hostname "/")
        (http-get hostname path)))
    body))

(print (uri-get "http://example.com"))