removed obsolete block of comments
This commit is contained in:
parent
5a8d56672d
commit
60a11e664d
|
@ -77,20 +77,3 @@
|
||||||
(define (surflet-sxml->low-level-sxml sxml-tree)
|
(define (surflet-sxml->low-level-sxml sxml-tree)
|
||||||
(pre-post-order sxml-tree surflet-sxml-rules))
|
(pre-post-order sxml-tree surflet-sxml-rules))
|
||||||
|
|
||||||
;;; adapted from Oleg's SXML-to-HTML.scm
|
|
||||||
;;; extended by additional port argument (see FORMATED-REPLY)
|
|
||||||
;(define (surflet-xml->html port html-tree)
|
|
||||||
; (let ((fragments (reformat html-tree)))
|
|
||||||
; (cond
|
|
||||||
; ((not port)
|
|
||||||
; (call-with-string-output-port
|
|
||||||
; (lambda (port)
|
|
||||||
; (formated-reply port fragments))))
|
|
||||||
; ((eq? port #t)
|
|
||||||
; (formated-reply (current-output-port) fragments))
|
|
||||||
; ((output-port? port)
|
|
||||||
; (formated-reply port fragments))
|
|
||||||
; (else
|
|
||||||
; (error "Invalid port argument to FORMATED-REPLY" port)))))
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue