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)))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What type of object does `map' expect as second argument?
Visually impaired? Let me spell it for you (wav file) download WAV