remove debug output

2003-05-22 13:56:57 +00:00 · 2003-05-22 13:56:57 +00:00 · a81dfb6ab1
parent 08012edab4
commit a81dfb6ab1
1 changed files with 0 additions and 2 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/test.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/test.scm
@ -185,11 +185,9 @@ test"))
 			 (url "/" "Return to main menu.")))))))

    (define (only-select-selected! sel-if selected indices)
-      (format #t "called only-select-selected! with ~s  ~s  ~s~%" sel-if selected indices)
      (for-each (lambda (index)
 		  (unselect-sel-if-option! index sel-if))
 		(iota (length (cdr selections))))
-      (format #t "passeed 3 ")
      (for-each (lambda (selected)
 		  (select-sel-if-option! 
 		   (list-index (lambda (s) (string=? s selected))