www

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

utils.rkt (385B)

      1 #lang typed/racket
      2 
      3 (require (for-syntax syntax/parse))
      4 
      5 (provide define-syntax/parse)
      6 
      7 ;; Copied from phc-toolkit, but does not bind "stx". Use this-syntax
      8 ;; instead, from syntax/parse.
      9 (define-syntax-rule (define-syntax/parse (name . args) body0 . body)
     10   (define-syntax (name stx2)
     11     ;(with-backtrace (syntax->datum stx2)
     12     (syntax-parse stx2
     13       [(_ . args) body0 . body])))