diff --git a/scheme/httpd/surflets/packages.scm b/scheme/httpd/surflets/packages.scm index a412442..8a337fa 100644 --- a/scheme/httpd/surflets/packages.scm +++ b/scheme/httpd/surflets/packages.scm @@ -61,6 +61,7 @@ ;; Extensions/Exports to/from Olegs SSAX library (define-interface surflets/sxml-interface (export display-low-level-sxml + sxml->low-level-sxml ;direct map to pre-post-order sxml->string sxml->string/internal sxml-attribute? diff --git a/scheme/httpd/surflets/sxml.scm b/scheme/httpd/surflets/sxml.scm index e6a09e0..85566da 100644 --- a/scheme/httpd/surflets/sxml.scm +++ b/scheme/httpd/surflets/sxml.scm @@ -23,6 +23,8 @@ (display (car fragments) port) (loop (cdr fragments) #t))))) +(define sxml->low-level-sxml pre-post-order) + ;; Gives you a string representing the HTML of the already reformatted ;; SXML-TREE. (define (sxml->string sxml-tree rules)