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

remove debug output 

newline to output-port `out'
This commit is contained in:
interp 2002-08-29 14:34:38 +00:00
parent 50fa27f993
commit ecd5afadbe
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/info-gateway.scm
View File

@ -265,7 +265,7 @@
(define (maybe-display-header header icon alt)
(if header
(begin
(newline)
(newline out)
(with-tag out b ()
(display-reference file header header icon alt)))))
@ -340,7 +340,7 @@
(begin
(display-xref (cadr components) file display-reference out)
(loop (cddr components))))))
(newline)))))
(newline out)))))
;; Menus
@ -373,7 +373,7 @@
(info-gateway-error "invalid menu item")))
(emit-tag out 'dt)
(display-reference file node-name note (icon-name 'menu) "*")
(newline)
(newline out)
(if (and (not (string=? "" text))
(not (string=? "." text)))
(begin
@ -426,9 +426,7 @@
(loop)))))
(define (display-node node-name find-file display-reference icon-name out)
(write (list 'node-name node-name)) (newline)
(receive (file node) (parse-node-name node-name)
(write (list 'file file 'node node #\newline)) (newline)
(receive (port file-header node-header up-header prev-header next-header)
(find-node file node find-file)