gistfile1.txt

(use util.match)
(use srfi-1)

(define-macro (def proc . xs)
  (let loop ([xs xs] [clauses '()])
    (if (null? xs)
      `(define ,proc (match-lambda* ,@(reverse clauses)))
      (receive (args rest) (break ($ eq? '-> $) xs)
        (loop (cddr rest)
              (cons (list args (cadr rest)) clauses))))))

#|
(def m
  f () -> ()
  f (hd . tl) -> (cons (f hd) (m f tl)))

(m (cut + 1 <>) '(1 2 3 4)) ;=> (2 3 4 5)
|#