11 lines
232 B
Racket
11 lines
232 B
Racket
#lang racket/base
|
|
|
|
(require syntax/parse
|
|
(for-syntax racket/base))
|
|
|
|
(define-syntax ~mutex
|
|
(pattern-expander
|
|
(λ (stx)
|
|
(syntax-case stx ()
|
|
[(self (mutex:id ...) pat ...)
|
|
#'(NotImplementedYet...)])))) |