Welcome to the CHICKEN Scheme pasting service

env added by andyjpb on Thu Nov 8 14:16:24 2012

(define (render-widgets sxml env default-bindings bindings contents)
  (let ((add-attr (lambda (attr) (environment-set! env (first attr) (second attr)))))
    (if (list? default-bindings) (for-each add-attr default-bindings))
    (if (list? bindings) (for-each add-attr bindings))
    (environment-set! env 'contents contents)
    (eval `(let ((++ string-append)) ,sxml) env))) ; Render the widget
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the procedure that returns the car of a cdr?
Visually impaired? Let me spell it for you (wav file) download WAV