removed obsolete block of comments

This commit is contained in:
interp 2003-04-17 09:23:09 +00:00
parent 5a8d56672d
commit 60a11e664d
1 changed files with 0 additions and 17 deletions

View File

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