diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /scripts/fetch-liu-map-index.scm | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'scripts/fetch-liu-map-index.scm')
| -rwxr-xr-x | scripts/fetch-liu-map-index.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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~%" |