remove debug output

2003-05-23 09:14:58 +00:00 · 2003-05-23 09:14:58 +00:00 · d36409fddc
parent f3b7c3a396
commit d36409fddc
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
@ -120,9 +120,7 @@ test"))
 		  (format #f "returned via annotated string ~s" string)))
 	       (else
 		(set-text-input-field-value! text text-entered)
-		(format #t "passed1 ")
 		(only-select-selected! select selected (cdr selections))
-		(format #t "passed2 ")
 		(only-select-selected! select2 (list selected2) (car selections))
 		(if number-entered
 		    (set-number-input-field-value! number number-entered))