Re: rfc: `process-define-module': function -> macro ?

[Marius Vollmer]

Marius Vollmer <address@hidden> writes:

> For example, we could have a helper function

Sorry, wrong code.  This is the correct one:

    (define (interface-spec->args spec)
      (define (make-keyarg sym key quote?)
        (cond ((or (memq sym spec)
                   (memq key spec))
               => (lambda (rest)
                    (if quote?
                        (list key (list 'quote (cadr rest)))
                        (list key (cadr rest)))))
              (else
               '())))
      (define keys 
        ;; sym     key      quote?
        '((:select #:select #t)
          (:rename #:rename #f)))
      (define (map-apply func list)
        (map (lambda (args) (apply func args)) list))
      (if (not (pair? (car spec)))
          `(',spec)
          `(',(car spec)
            ,@(apply append (map-apply make-keyarg keys)))))