PasteRack.org
Paste # 82059
2020-12-03 03:51:55

Fork as a new paste.

Paste viewed 613 times.


Embed:

defines

  1. #lang racket/base
  2.  
  3. (require (for-syntax racket/base
  4.                      syntax/parse))
  5.  
  6. (define-syntax (demo stx)
  7.   (syntax-parse stx
  8.     [(_ the-one:expr the-other:expr)
  9.      #'(begin
  10.          (define (the-first) the-one)
  11.          (define (the-second) the-other))]))
  12.  
  13. (demo 1 2)

=>