PasteRack.org
Paste # 59308
2020-03-15 13:12:00

Fork as a new paste.

Paste viewed 267 times.


Embed:

  1. #lang racket
  2.  
  3. (define A 1)
  4. (define B 2)
  5. (define ex 1)
  6.  
  7. (define-syntax-rule (cond= v [tv ex] ...)
  8.   (cond  [(= v tv) ex] ...))
  9.  
  10. (cond= ex
  11.   [A 'one]
  12.   [B 'two])

=>

'one