Check-in [2f15dd43ce]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:added bytevector to json->string outputs verbatim
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2f15dd43ce5d37adc756703de9532da29af38f75
User & Date: aldo 2018-12-09 15:19:17
Context
2018-12-09
15:20
changed signature of cairo-write-func-t and cairo-read-func-t check-in: 13f43a0da0 user: aldo tags: trunk
15:19
added bytevector to json->string outputs verbatim check-in: 2f15dd43ce user: aldo tags: trunk
15:18
improved nn-recv check-in: 791b935228 user: aldo tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to json.sls.

220
221
222
223
224
225
226


227
228
229
230
231
232
233
234
235
					(lambda (x acc)
					  (let ([q (assq x special)])
					    (if q (cons #\\ (cons (cdr q) acc))
						(cons x acc))))
					'()
					(string->list json)))
			 "\"" )]


   
	 [(symbol? json)
	  (json->string (symbol->string json))]
	 [else
	  (json->string "")]))
 
 )

;;#!eof







>
>









220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
					(lambda (x acc)
					  (let ([q (assq x special)])
					    (if q (cons #\\ (cons (cdr q) acc))
						(cons x acc))))
					'()
					(string->list json)))
			 "\"" )]
	 [(bytevector? json)
	  (utf8->string json)]		
   
	 [(symbol? json)
	  (json->string (symbol->string json))]
	 [else
	  (json->string "")]))
 
 )

;;#!eof