scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove debug output.

This commit is contained in:
interp 2003-01-18 17:22:57 +00:00
parent c2bb9ae9e8
commit 0bd2a7b254
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/web-server/root/surflets/add-raw.scm
View File

@ -30,7 +30,6 @@
'() '()
(make-writer-body (make-writer-body
(lambda (out options) (lambda (out options)
(format #t "make-get-number-page: omitting HTML page.~%")
(format out " (format out "
<HTML>~a <HTML>~a
<BODY>~a <BODY>~a
@ -67,7 +66,6 @@
'() '()
(make-writer-body (make-writer-body
(lambda (out options) (lambda (out options)
(format #t "make-result-page: ommiting HTML page~%")
(format out " (format out "
<HTML> <HTML>
<TITLE>Result</TITLE> <TITLE>Result</TITLE>