Re: define-module, #:export and export

[yarl baudig]

> 
> Not going to work.
> , it matches anything.
> 
> 

Obviously...

Ok, I tried more.
Apparently,

(define-syntax define-enumerate-type
  (syntax-rules ()
    ((_ name->int (name id) ...)
     (define-syntax name->int
       (syntax-rules (name ...)
         ((_ name) id) ...)))))

works the same as

(define-syntax define-enumerate-type
  (syntax-rules ()
    ((_ name->int (name id) ...)
     (define-syntax name->int
       (lambda (x)
         (syntax-case x ()
           ((_ n) (free-identifier=? #'name #'n) #'id) ...))))))

. Now what about

(define-syntax define-enumerate-type
  (syntax-rules ()
    ((_ name->int (name id) ...)
     (define-syntax name->int
       (lambda (x)
         (syntax-case x ()
           ((_ n) (equal?
                   (syntax->datum #'name)
                   (syntax->datum #'n))
            #'id) ...))))))

?