scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove debug output

This commit is contained in:
interp 2003-05-22 13:56:57 +00:00
parent 08012edab4
commit a81dfb6ab1
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/web-server/root/surflets/test.scm
View File

@ -185,11 +185,9 @@ test"))
(url "/" "Return to main menu."))))))) (url "/" "Return to main menu.")))))))
(define (only-select-selected! sel-if selected indices) (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) (for-each (lambda (index)
(unselect-sel-if-option! index sel-if)) (unselect-sel-if-option! index sel-if))
(iota (length (cdr selections)))) (iota (length (cdr selections))))
(format #t "passeed 3 ")
(for-each (lambda (selected) (for-each (lambda (selected)
(select-sel-if-option! (select-sel-if-option!
(list-index (lambda (s) (string=? s selected)) (list-index (lambda (s) (string=? s selected))