Welcome to the CHICKEN Scheme pasting service

match-expander-er pasted by iterrogo on Sun Nov 16 02:14:39 2014

(define match-expander-er
  (lambda (form rename compare?)
    (let ((pats (car (cdr form)))
          (results (cadr (cdr form)))
          (stack (caddr (cdr form)))
          (fail (cadddr (cdr form)))
          (%interpret-pat (rename 'interpret-pat))
          (p (compile-patterns pats results)))
      `(,%interpret-pat ,p
                        ,stack
                        ,fail))))
[ permalink | raw ]

no title added by iterrogo on Sun Nov 16 02:15:25 2014

(define match-expander-er
  (lambda (form rename compare?)
    (let* ((pats (car (cdr form)))
           (results (cadr (cdr form)))
           (stack (caddr (cdr form)))
           (fail (cadddr (cdr form)))
           (%interpret-pat (rename 'interpret-pat))
           (p (compile-patterns pats results)))
      `(,%interpret-pat ,p
                        ,stack
                        ,fail))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `load-relative'?
Visually impaired? Let me spell it for you (wav file) download WAV