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)
|
||||
(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