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