Upgrade chibi-sxml.scm to latest upstream version

srfi-tools/private/chibi-sxml.scm

@@ -91,9 +91,12 @@
 
 ;;> Render (valid, expanded) \var{sxml} as html.
 ;;> \var{@raw} tag is considered safe text and not processed or escaped.
-(define (sxml-display-as-html sxml . o)
-  (let-optionals o ((out (current-output-port))
-		    (indent? #false))
+(define (sxml-display-as-html sxml . args)
+  (let* ((out (if (null? args) (current-output-port) (car args)))
+         (args (if (null? args) args (cdr args)))
+	 (indent? (if (null? args) #f (car args)))
+         (args (if (null? args) args (cdr args))))
+    (unless (null? args) (error "too many args"))
     (let lp ((sxml (if (and (pair? sxml) (eq? '*TOP* (car sxml)))
                        (cdr sxml)
                        sxml))

srfi-tools/private/html-writer.sld

@@ -6,8 +6,7 @@
           write-html-file)
   (import (scheme base)
 	  (scheme file)
-          (scheme write)
-	  (srfi 227))
+          (scheme write))
   (include "chibi-sxml.scm")
   (begin
     (define (write-html-file file sxml)

srfi-tools/srfi-tools.egg

@@ -6,8 +6,7 @@
  (category tools)
  (license "MIT")
  (author "The SRFI community")
- (dependencies http-client r7rs scsh-process srfi-1 srfi-13 srfi-19 srfi-193
-               srfi-227)
+ (dependencies http-client r7rs scsh-process srfi-1 srfi-13 srfi-19 srfi-193)
  (test-dependencies)
  (distribution-files
   "private/chibi-html-parser.scm" "private/chibi-sxml.scm" "chart.scm"