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

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))