Welcome to the CHICKEN Scheme pasting service

let binding reordering added by andyjpb on Sun Aug 19 19:57:19 2012

-----
      (let* ((msg (mailbox-receive! mbx-req terminate #f))
	     (last-activity (current-time))
	     (terminate (seconds->time (+ inactivity (time->seconds last-activity))))) ; the next message is due at this time, independent of how long we spend processing this message.
	(if msg ...
-----

-----
      (let ((msg (mailbox-receive! mbx-req terminate #f)))
        (let ((last-activity (current-time))
	      (terminate (seconds->time (+ inactivity (time->seconds last-activity))))) ; the next message is due at this time, independent of how long we spend processing this message.
	(if msg ...
-----
[ permalink | raw ]

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