Welcome to the CHICKEN Scheme pasting service

spin until timeout added by andyjpb on Sun Apr 29 20:42:17 2012

(define-page (regexp "/files/[^/]+/[^/]+")
 (lambda (path) (lambda ()
  (let* ((paths (string-split path "/"))
         (asset_id (second paths))
         (type     (third paths)))
(parameterize ((root-path "/home/local/andyjpb/"))
                  (send-static-file "card-reader"))
    ;(send-image "select * from v_images where asset_id = @asset_id and type = @type;" asset_id type)
    "")) no-template: #t))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which R5RS procedure returns `'(2 3)' when given `'(1 2 3)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV