www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

global-mutex.rkt (232B)

      1 #lang racket/base
      2 
      3 (require syntax/parse
      4          (for-syntax racket/base))
      5 
      6 (define-syntax ~mutex
      7   (pattern-expander
      8    (λ (stx)
      9      (syntax-case stx ()
     10        [(self (mutex:id ...) pat ...)
     11         #'(NotImplementedYet...)]))))