(define make-pattern/action
       (lambda (pattern action)
         (cons pattern action)))

     (define pattern car)
     (define action cdr)