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 /tests | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/validate-html/run-validator.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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) |