接口 gen:ToJSON

procedure (ToJSON? a) → boolean?

a : any/c

procedure (->json a) → jsexpr?

a : gen:ToJSON

procedure (json->string a) → string?

a : gen:ToJSON

> (json->string "hello")

"\"hello\""

> (json->string 1)

"1"

> (json->string (list 1 (list "hello") "world"))

"[1,[\"hello\"],\"world\"]"

procedure (json->byte a) → bytes?

a : gen:ToJSON

> (json->byte "hello")

#"\"hello\""

> (json->byte (list 1 (list "hello") "world"))

#"[1,[\"hello\"],\"world\"]"

procedure (json/->primitive value) → any/c

value : jsexpr?

> (json/->primitive (list 1 2 3))

(Array 1 2 3)

> (json/->primitive 'null)

(Nothing)

> (json/->primitive (hash 'a (list 1 2 3) 'b (hash 'name 2 'age 4)))

(Map '(b . #<Map: (name . 2) (age . 4)>) '(a . #<Array: 1 2 3>))

procedure (json/read port) → any/c

port : input-port?