PasteRack.org
Paste # 69020
2022-12-06 23:43:29

Fork as a new paste.

Paste viewed 1471 times.


Embed:

  1. #lang racket
  2.  
  3. (require
  4.   racket/match
  5.   (for-syntax
  6.    racket/base
  7.    syntax/parse
  8.    ))
  9.  
  11. (begin-for-syntax
  12.     (define-syntax-class operation
  13.     #:attributes (op type)
  14.     #:literals (* /)
  15.     (pattern *
  16.              #:attr op #''multiply
  17.              #:attr type #'prod)
  18.     (pattern /
  19.              #:attr op #''divide
  20.              #:attr type #'div)
  21.     )
  22.   )
  23.  
  25. (define-syntax (expression stx)
  26.  
  27.   (syntax-parse stx
  28.     ([_ (op:operation)]
  29.      #:when (begin
  30.               (printf "~a ~a~n"
  31.                       (syntax->datum #'op.type)
  32.                       (eq? (syntax->datum #'op.type) 'div))
  33.               (eq? (syntax->datum #'op.type) 'div)
  34.               )
  35.      #'(list op.op 'op.type)
  36.      )
  37.     ))
  38.  
  39. (expression (/))

=>

div #t

'(divide div)