From 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 04:14:46 +0200 Subject: Normalize keyword syntax. --- module/sxml/html.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'module/sxml/html.scm') diff --git a/module/sxml/html.scm b/module/sxml/html.scm index 473cfd9e..88dfa5b8 100644 --- a/module/sxml/html.scm +++ b/module/sxml/html.scm @@ -17,12 +17,13 @@ ;; https://dthompson.us/rendering-html-with-sxml-and-gnu-guile.html (define-module (sxml html) - #:use-module (sxml simple) - #:use-module (srfi srfi-26) - #:use-module (ice-9 match) - #:use-module (ice-9 format) - #:use-module (ice-9 hash-table) - #:export (sxml->html)) + :use-module (sxml simple) + :use-module (srfi srfi-26) + :use-module (srfi srfi-88) + :use-module (ice-9 match) + :use-module (ice-9 format) + :use-module (ice-9 hash-table) + :export (sxml->html)) (define %void-elements '(area @@ -350,7 +351,7 @@ ist ATTRS and the child nodes in BODY." (define (pi->html type body port) (format port "" type body)) -(define* (sxml->html tree #:optional (port (current-output-port))) +(define* (sxml->html tree optional: (port (current-output-port))) "Write the serialized HTML form of TREE to PORT." (match tree (() *unspecified*) -- cgit v1.2.3