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-23 09:14:58 +00:00
parent f3b7c3a396
commit d36409fddc
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

@ -120,9 +120,7 @@ test"))
(format #f "returned via annotated string ~s" string))) (format #f "returned via annotated string ~s" string)))
(else (else
(set-text-input-field-value! text text-entered) (set-text-input-field-value! text text-entered)
(format #t "passed1 ")
(only-select-selected! select selected (cdr selections)) (only-select-selected! select selected (cdr selections))
(format #t "passed2 ")
(only-select-selected! select2 (list selected2) (car selections)) (only-select-selected! select2 (list selected2) (car selections))
(if number-entered (if number-entered
(set-number-input-field-value! number number-entered)) (set-number-input-field-value! number number-entered))