X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Fweb.scm;h=7381f1412e18638670d3735bafe39d77aeebc5f4;hp=a6ee696e571a4826d4af20b52fdd0b1129b8187c;hb=ff48f246f69529102b497dc1de627b8a70f7218f;hpb=c344305a29e610685dd2c2746bb495295f1696ef diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm index a6ee696..7381f14 100644 --- a/8sync/systems/web.scm +++ b/8sync/systems/web.scm @@ -1,5 +1,6 @@ ;;; 8sync --- Asynchronous programming for Guile ;;; Copyright © 2017 Christopher Allan Webber +;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen ;;; ;;; Code (also under the LGPL) borrowed from fibers: ;;; Copyright © 2016 Andy Wingo @@ -32,6 +33,7 @@ #:use-module (web server) #:use-module (rnrs io ports) #:use-module (8sync) + #:use-module ((srfi srfi-1) #:select (assoc)) #:export ( ;; @@: If we don't want to import these because of ;; "conflicts" with other objects, we could just @@ -149,7 +151,7 @@ as we're alive." (let loop ((upgrades (request-upgrade request))) (if (eq? upgrades '()) #f ; Shouldn't upgrade - (match (assoc (car upgrades) upgrade-paths) + (match (assoc (car upgrades) upgrade-paths string-ci=?) ;; Yes, upgrade with this method ((_ . upgrade-proc) upgrade-proc)