Permalink
Browse files

Rewrite print-message with """

  • Loading branch information...
kotarak committed Nov 15, 2011
1 parent 13d24b8 commit 0753f42e10865c98a029dcd27b1754accb668c7c
Showing with 4 additions and 4 deletions.
  1. +4 −4 nrepl-client/nrepl-client/nrepl-client.factor
@@ -60,10 +60,10 @@ TUPLE: response id stdout stderr value nspace status ;
: print-response ( response -- )
"{" write
- " \"stdout\" : \"" write dup stdout>> write "\"," write
- " \"stderr\" : \"" write dup stderr>> write "\"," write
- " \"value\" : \"" write dup value>> write "\"," write
- " \"namespace\" : \"" write dup nspace>> write "\" " write
+ """ "stdout" : """" write dup stdout>> write """",""" write
+ """ "stderr" : """" write dup stderr>> write """",""" write
+ """ "value" : """" write dup value>> write """",""" write
+ """ "namespace" : """" write dup nspace>> write """" """ write
"}" print
flush
drop ;

0 comments on commit 0753f42

Please sign in to comment.