yamada
yamad****@tir*****
2007年 2月 28日 (水) 22:36:20 JST
山田です。 > with-fastcgi が、 > それ以前にparameterizeしていた(cgi-metavariables)の内容を > 破棄してしまう事に気付いたので、 > それ以前の(cgi-metavariables)の内容をマージするようなパッチを書きました。 すみません、こちらのパッチですが、(cgi-metavariables)が#fの時に 正常に動作しませんでした……。 修正しましたので、送り直します。 > http://d.tir.jp/Gauche-fastcgi-0.1.3-mvs.patch こちらの方も修正しました。 それでは、どうかよろしくお願いします。 --- www/fastcgi.scm.orig 2007-02-28 08:26:23.000000000 +0900 +++ www/fastcgi.scm 2007-02-28 22:34:03.000000000 +0900 @@ -34,6 +34,7 @@ ;;; (define-module www.fastcgi + (use srfi-1) (use www.cgi) (use gauche.parameter) (export call-with-fastcgi with-fastcgi)) @@ -94,7 +95,11 @@ (lambda () (with-error-to-port eport (lambda () - (parameterize ((cgi-metavariables mvs)) + (parameterize ((cgi-metavariables + (delete-duplicates + (append mvs (or (cgi-metavariables) '())) + (lambda (x y) + (equal? (car x) (car y)))))) (thunk))))))))))) (provide "www/fastcgi")
