From ee86bce39425116d0e7ef2037027f3354d270c6b Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 5 Mar 2013 22:30:10 -0700 Subject: [PATCH] turning off debugging error messages on the server --- whalesong/repl-prototype/server.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/whalesong/repl-prototype/server.rkt b/whalesong/repl-prototype/server.rkt index cdeb6b1..0e2106b 100644 --- a/whalesong/repl-prototype/server.rkt +++ b/whalesong/repl-prototype/server.rkt @@ -79,13 +79,13 @@ (define op (open-output-bytes)) (write raw-bytecode op) (define whalesong-bytecode (parse-bytecode (open-input-bytes (get-output-bytes op)))) - (pretty-print whalesong-bytecode) + #;(pretty-print whalesong-bytecode) (define compiled-bytecode (compile-for-repl whalesong-bytecode)) - (pretty-print compiled-bytecode) + #;(pretty-print compiled-bytecode) (define assembled-op (open-output-string)) (define assembled (assemble/write-invoke compiled-bytecode assembled-op 'with-preemption)) (cons (get-output-string assembled-op) (loop))]))) - (printf "assembled codes ~a\n" assembled-codes) + #;(printf "assembled codes ~a\n" assembled-codes) (write-json (hash 'type "repl" 'compiledCodes assembled-codes) op)] @@ -102,7 +102,6 @@ ;; Send it back as json text.... (close-output-port op) - (printf "done\n") response)