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