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

Question

我需要将 Web 应用程序连接到使用 Spiffy 网络服务器在 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 返回的响应中。有关更多信息，请参阅Spiffy 文档。