Welcome to the CHICKEN Scheme pasting service

Restartable read added by C-Keen on Wed Nov 25 16:08:56 2015

(define (restartable-read port)
    (call-with-current-continuation
     (lambda (restart)
       (condition-case (read port)
                       ((exn i/o net timeout)
                        (log 'debug "Read timeout, restarting.")
                        (restart (restartable-read port)))
                       (e () (signal e))))))
[ 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 cdr of a cdr?
Visually impaired? Let me spell it for you (wav file) download WAV