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: |
2f15dd43ce5d37adc756703de9532da2 |
| 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
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 |