PasteRack.org
Paste # 86722
2016-11-16 18:03:32

Fork as a new paste.

Paste viewed 280 times.


Embed:

  1. #lang racket/base
  2.  
  3. (require (for-syntax racket/base syntax/parse))
  4.  
  5. (begin-for-syntax
  6.   (define-syntax-class var-type
  7.     #:description "variable type"
  8.     #:datum-literals (string timer float int32 uint64 boolean symbol point vector quat bound-frame)
  9.     (pattern (~or string timer float int32 uint64 boolean symbol point vector quat bound-frame)))
  10.   )
  11.  
  12. (define-syntax (test stx)
  13.   (syntax-parse stx
  14.     ((_ a:var-type)
  15.      #''a)))
  16.  
  17. (test int32)
  18.  

=>

'int32