suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

turning off debugging error messages on the server

Browse Source
This commit is contained in:
Danny Yoo 2013-03-05 22:30:10 -07:00
parent a590802b36
commit ee86bce394
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
whalesong/repl-prototype/server.rkt
View File

@ -79,13 +79,13 @@
(define op (open-output-bytes)) (define op (open-output-bytes))
(write raw-bytecode op) (write raw-bytecode op)
(define whalesong-bytecode (parse-bytecode (open-input-bytes (get-output-bytes 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)) (define compiled-bytecode (compile-for-repl whalesong-bytecode))
(pretty-print compiled-bytecode) #;(pretty-print compiled-bytecode)
(define assembled-op (open-output-string)) (define assembled-op (open-output-string))
(define assembled (assemble/write-invoke compiled-bytecode assembled-op 'with-preemption)) (define assembled (assemble/write-invoke compiled-bytecode assembled-op 'with-preemption))
(cons (get-output-string assembled-op) (loop))]))) (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" (write-json (hash 'type "repl"
'compiledCodes assembled-codes) 'compiledCodes assembled-codes)
op)] op)]
@ -102,7 +102,6 @@
;; Send it back as json text.... ;; Send it back as json text....
(close-output-port op) (close-output-port op)
(printf "done\n")
response) response)