Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Rewrite print-message with """

  • Loading branch information...
commit 0753f42e10865c98a029dcd27b1754accb668c7c 1 parent 13d24b8
Meikel Brandmeyer authored November 15, 2011
8  nrepl-client/nrepl-client/nrepl-client.factor
@@ -60,10 +60,10 @@ TUPLE: response id stdout stderr value nspace status ;
60 60
 
61 61
 : print-response ( response -- )
62 62
    "{" write
63  
-   " \"stdout\" : \""    write dup stdout>> write "\"," write
64  
-   " \"stderr\" : \""    write dup stderr>> write "\"," write
65  
-   " \"value\" : \""     write dup value>>  write "\"," write
66  
-   " \"namespace\" : \"" write dup nspace>> write "\" " write
  63
+   """ "stdout" : """"    write dup stdout>> write """",""" write
  64
+   """ "stderr" : """"    write dup stderr>> write """",""" write
  65
+   """ "value" : """"     write dup value>>  write """",""" write
  66
+   """ "namespace" : """" write dup nspace>> write """" """ write
67 67
    "}" print
68 68
    flush
69 69
    drop ;

0 notes on commit 0753f42

Please sign in to comment.
Something went wrong with that request. Please try again.