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.

---
 tests/validate-html/run-validator.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tests/validate-html/run-validator.scm')

diff --git a/tests/validate-html/run-validator.scm b/tests/validate-html/run-validator.scm
index 7e3c9f76..bd96c32d 100755
--- a/tests/validate-html/run-validator.scm
+++ b/tests/validate-html/run-validator.scm
@@ -14,6 +14,7 @@ exec $GUILE -e main -s "$0" -- "$@"
              (ice-9 regex)
              (ice-9 popen)
              (ice-9 format)
+             (srfi srfi-88
              ((hnh util) :select (group-by ->)))
 
 (define (error-string error)
@@ -63,8 +64,8 @@ exec $GUILE -e main -s "$0" -- "$@"
                            "raw.xhtml"
                            ))
   (define data (xml->sxml pipe
-                          #:trim-whitespace? #t
-                          #:namespaces
+                          trim-whitespace?: #t
+                          namespaces:
                           '((nu . "http://n.validator.nu/messages/")
                             (xhtml . "http://www.w3.org/1999/xhtml"))))
   (close-pipe pipe)
-- 
cgit v1.2.3