[racket] Macro Help

On Sun, Feb 26, 2012 at 8:39 PM, Neil Van Dyke <neil at neilvandyke.org> wrote:
> I suggest forgetting about "syntax-rules", and using Ryan Culpepper's
> "syntax-parse" instead.

Here's a version using `syntax-parse':

(require (for-syntax syntax/parse))

(define-syntax (function stx)
  (syntax-parse stx #:literals (->)
    [(_ (~seq (~and (~not ->) args) ... -> body:expr) ...)
     #'(match-lambda*
       [(list args ...) body]
       ...)]))

-- 
sam th
samth at ccs.neu.edu