On Sun, Feb 26, 2012 at 8:39 PM, Neil Van Dyke <[email protected]> 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
[email protected]
____________________
  Racket Users list:
  http://lists.racket-lang.org/users

Reply via email to