Welcome to the CHICKEN Scheme pasting service
no title added by sECuRE on Sun Mar 24 14:24:09 2013
(let* ((unparsers (json-unparsers))
(unparse-alist (alist-ref list? unparsers))
(unparse-vector (alist-ref vector? unparsers)))
(json-unparsers
(append (list (cons hash-table? (compose unparse-alist hash-table->alist))
(cons list? (compose unparse-vector list->vector)))
unparsers)))