From 60a11e664d1baf48377fa75bc255280a7840a4f7 Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 17 Apr 2003 09:23:09 +0000 Subject: [PATCH] removed obsolete block of comments --- scheme/httpd/surflets/surflet-sxml.scm | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/scheme/httpd/surflets/surflet-sxml.scm b/scheme/httpd/surflets/surflet-sxml.scm index e790c6f..bc53574 100644 --- a/scheme/httpd/surflets/surflet-sxml.scm +++ b/scheme/httpd/surflets/surflet-sxml.scm @@ -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))))) - - \ No newline at end of file