Remove debug output

2002-11-07 20:42:06 +00:00 · 2002-11-07 20:42:06 +00:00 · 5770918384
parent 223c1da086
commit 5770918384
1 changed files with 0 additions and 1 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/calculate-cb.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/calculate-cb.scm
@ -49,7 +49,6 @@
 	  (make-number-input-field)))
    
    (define (show-page operator-pair number1 number2 . maybe-update-text)
-      (format #t "number1 ~s number2 ~s~%" number1 number2)
      (let* ((update-text (:optional maybe-update-text ""))
 	     (number-field1 (make-number-input-field/default number1))
 	     (number-field2 (make-number-input-field/default number2))