Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge 7164164ed6 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6834d66b604fac430d17ed52af2e4209 |
| User & Date: | aldo 2024-09-27 18:29:47 |
Context
|
2024-09-27
| ||
| 20:42 | fix %3a include issue in srfi 42 Leaf check-in: 008f7bc689 user: aldo tags: trunk | |
| 18:29 | merge 7164164ed6 check-in: 6834d66b60 user: aldo tags: trunk | |
| 18:19 | updated irregex check-in: a8011c42a0 user: aldo tags: trunk | |
|
2018-04-16
| ||
| 15:07 | use @ in json check-in: 7164164ed6 user: root tags: trunk | |
Changes
Changes to json.sls.
192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 |
(if v (cdr v) v))))#'(tag ...))
body ...)])))
(define (json->string json)
(define special '((#\backspace . #\b) (#\newline . #\n) (#\alarm . #\a)
(#\return . #\r) (#\tab #\t) (#\\ . #\\) (#\" . #\")))
(cond [(and (pair? json) (eq? (car json) '@))
(string-append
"{\n"
(string-intersperse
(map (lambda (pair)
(let ([k (car pair)]
[v (cdr pair)])
(string-append " " (json->string k)
|
| |
192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 |
(if v (cdr v) v))))#'(tag ...))
body ...)])))
(define (json->string json)
(define special '((#\backspace . #\b) (#\newline . #\n) (#\alarm . #\a)
(#\return . #\r) (#\tab #\t) (#\\ . #\\) (#\" . #\")))
(cond [(and (pair? json) (eq? (car json) '@))
(string-append
"{\n"
(string-intersperse
(map (lambda (pair)
(let ([k (car pair)]
[v (cdr pair)])
(string-append " " (json->string k)
|