将 CORS 头文件添加到 Spiffy (Scheme/Chicken)

Question

我需要使用 Spiffy 网络服务器将 Web 应用程序连接到在 Scheme/Chicken 中制作的 REST 接口。

如何使用正确的 Scheme 语法将此标头添加到 .scm 配置文件（使用 CSI -s /www/config.scm 启动 Spiffy）？

标题是Access-Control-Allow-Origin: *

Answer 1

当您在vhost-map 中执行过程时，您可以将其包装在with-headers 中，如下所示：

(vhost-map `((".*" . ,(lambda (cont)
                        (with-headers '((access-control-allow-origin "*"))
                          cont)))))

这使用了 with-headers 过程，该过程只是将标头添加到 thunk 返回的响应中。请参阅the Spiffy docs 了解更多信息。