Welcome to the CHICKEN Scheme pasting service

selector macro added by anandamide on Sun Apr 3 18:28:15 2016

(define-syntax numeric-access
  (syntax-rules ()
    ([numeric-access members ...]
     (lambda (p)
       (let ((i 0))
	 (cond ((eq? p (+ i 1)) members)
	       ...))))))

((numeric-access 10 20 30) 1)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the equality predicate for strings in R5RS?
Visually impaired? Let me spell it for you (wav file) download WAV