diff --git a/scheme/httpd/surflets/web-server/root/surflets/test.scm b/scheme/httpd/surflets/web-server/root/surflets/test.scm index ad1122e..59039ca 100644 --- 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))