Changeset 36096 in project


Ignore:
Timestamp:
08/10/18 22:56:41 (14 months ago)
Author:
Ivan Raikov
Message:

fast-generic: er-macro-transformer for syntax defined by define-generic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/fast-generic/trunk/fast-generic.scm

    r36093 r36096  
    5050        (%generic-error (r 'generic-error))
    5151        (%generic-forms (r 'generic-forms))
    52         (%define (r 'define)))
     52        (%define (r 'define))
     53        (%er-macro-transformer (r 'er-macro-transformer)))
    5354    (match x
    5455      ((_ (name types+bindings ...) body ...)
     
    8081           (,%define-compiler-syntax
    8182            ,name
    82             (,%lambda
     83            (,%er-macro-transformer
     84             (,%lambda
    8385             (x2 r2 c2)
    8486             (if (,%eq? ,len (,%length (,%cdr x2)))
     
    108110                                   (,%list (r2 'quote) ',(generic-forms name)))
    109111                                  result)))
    110                  x2)))))))))
     112                 x2))))))))))
    111113  ))
    112114
Note: See TracChangeset for help on using the changeset viewer.