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 +-
 scripts/use2dot/graphviz.scm    | 108 ++++++++++++++++++++--------------------
 2 files changed, 56 insertions(+), 55 deletions(-)

(limited to 'scripts')

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~%"
diff --git a/scripts/use2dot/graphviz.scm b/scripts/use2dot/graphviz.scm
index 0c75f3ff..9355d723 100644
--- a/scripts/use2dot/graphviz.scm
+++ b/scripts/use2dot/graphviz.scm
@@ -16,68 +16,68 @@
 ;;; https://github.com/roelj/graphviz-guile/blob/master/graphviz.scm
 
 (define-module (graphviz)
-  #:export (;; New graphs
-            graph
-            digraph
-            strictgraph
-            strictdigraph
-            readstring
-            read
+  :export (;; New graphs
+           graph
+           digraph
+           strictgraph
+           strictdigraph
+           readstring
+           read
 
-            ;; New nodes/edges
-            node
-            edge
+           ;; New nodes/edges
+           node
+           edge
 
-            ;; Setting/getting attribute values
-            setv
-            getv
+           ;; Setting/getting attribute values
+           setv
+           getv
 
-            ;; Finding and obtaining names
-            nameof
-            findsubg
-            findnode
-            findedge
-            findattr
+           ;; Finding and obtaining names
+           nameof
+           findsubg
+           findnode
+           findedge
+           findattr
 
-            ;; Graph navigators
-            headof
-            tailof
-            graphof
-            rootof
+           ;; Graph navigators
+           headof
+           tailof
+           graphof
+           rootof
 
-            ;; Obtain handles of proto node/edge for setting attribute values
-            protonode
-            protoedge
+           ;; Obtain handles of proto node/edge for setting attribute values
+           protonode
+           protoedge
 
-            ;; Iterators
-            ok
-            firstsubg
-            nextsubg
-            firstsupg
-            nextsupg
-            firstedge
-            nextedge
-            firstout
-            nextout
-            firsthead
-            nexthead
-            firstin
-            nextin
-            firstnode
-            nextnode
-            firstattr
-            nextattr
+           ;; Iterators
+           ok
+           firstsubg
+           nextsubg
+           firstsupg
+           nextsupg
+           firstedge
+           nextedge
+           firstout
+           nextout
+           firsthead
+           nexthead
+           firstin
+           nextin
+           firstnode
+           nextnode
+           firstattr
+           nextattr
 
-            ;; Remove graph objects
-            rm
+           ;; Remove graph objects
+           rm
 
-            ;; Layout
-            layout
-            render
-            renderresult
-            renderchannel
-            renderdata
-            write))
+           ;; Layout
+           layout
+           render
+           renderresult
+           renderchannel
+           renderdata
+           write))
 
 ;; (load-extension "libgv_guile.so" "SWIG_init")
 
-- 
cgit v1.2.3