~amirouche/ruse-scheme-libraries

dd959717a7d8ead406240fbe3b6acf6fa1a2b55a — Amirouche 1 year, 1 month ago f7cd440
sxml2html: typofix.
1 files changed, 3 insertions(+), 2 deletions(-)

M src/sxml2html.scm
M src/sxml2html.scm => src/sxml2html.scm +3 -2
@@ 6,6 6,7 @@
(import (scheme cxr))
(import (scheme write))


(define (html-char char)
  (case char
    ((#\") """)


@@ 30,7 31,7 @@
      param
      source
      track
      wbr)
      br)
     (if (and (not (null? (cdr sexp))) (pair? (cadr sexp)) (eq? (caadr sexp) '*))
         (begin
           (write-string (string-append "<" (symbol->string (car sexp))) port)


@@ 72,7 73,7 @@
   (else (error "object not supported" sexp))))

(define (%html-write sexp port)
  (write-string "<!DOCTYPE html>")
  (write-string "<!DOCTYPE html>" port)
  (%%html-write sexp port))

(define html-write