Commits

David Krentzlin  committed f9eb922

commented out debug messages

  • Participants
  • Parent commits 81562e7
  • Tags 0.1

Comments (0)

Files changed (1)

File chickumber-server.scm

              (message   (car request))
              (arguments (if (> (length request) 1) (cdr request) '()))
              (response  (find-and-apply-wire-procedure message arguments)))
-                                               (printf "Read: ~S ~%" line)
-                                               (printf "Write: ~S =>  ~S~%" response (with-output-to-string (lambda () (json-write (or response (make-message-not-understood-response message arguments))))))
+;                                               (printf "Read: ~S ~%" line)
+;                                               (printf "Write: ~S =>  ~S~%" response (with-output-to-string (lambda () (json-write (or response (make-message-not-understood-response message arguments))))))
         (json-write (or response (make-message-not-understood-response message arguments)) output-port)
         (newline output-port)
         (flush-output output-port)