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 /module/sxml | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'module/sxml')
| -rw-r--r-- | module/sxml/html.scm | 15 |
1 files changed, 8 insertions, 7 deletions
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 "<?~a ~a?>" 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*) |