17 lines
600 B
Scheme
17 lines
600 B
Scheme
(define-library (pandoc internal json)
|
|
(export json-read
|
|
json-read-from-bytevector)
|
|
(import (scheme base))
|
|
(cond-expand
|
|
(chicken
|
|
(import (cjson)
|
|
(rename (only (medea) read-json)
|
|
(read-json json-read)))
|
|
(begin (define (json-read-from-bytevector bytes)
|
|
(cjson-schemify (string->cjson (utf8->string bytes))))))
|
|
(gauche
|
|
(import (only (srfi 180) json-read))
|
|
(begin (define (json-read-from-bytevector bytes)
|
|
(call-with-port (open-input-bytevector bytes)
|
|
json-read))))))
|