From 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Jun 2022 04:14:46 +0200
Subject: Normalize keyword syntax.

---
 scripts/fetch-liu-map-index.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts/fetch-liu-map-index.scm')

diff --git a/scripts/fetch-liu-map-index.scm b/scripts/fetch-liu-map-index.scm
index da012cf3..31db3844 100755
--- a/scripts/fetch-liu-map-index.scm
+++ b/scripts/fetch-liu-map-index.scm
@@ -11,6 +11,7 @@
 ;;; Code:
 
 (use-modules (srfi srfi-1)
+             (srfi srfi-88)
              (web client)
              (web response)
              (ice-9 rdelim)
@@ -51,7 +52,7 @@
 ;; Open a HTTP request to the given URL, and return the
 ;; response body as a port.
 (define (open-input-url url)
-  (define-values (response body) (http-get url #:streaming? #t))
+  (define-values (response body) (http-get url streaming?: #t))
 
   (unless (= 200 (response-code response))
     (format #t "Fetching index failed with ~a ~a~%"
-- 
cgit v1.2.3