PasteRack.org
Paste # 26012
2019-01-03 13:26:03

Fork as a new paste.

Paste viewed 205 times.


Embed:

  1. #lang racket
  2.  
  3.  (define (apply/unstx proc . args)
  4.   (apply proc (map (lambda (arg) (if (syntax? arg) (syntax->datum arg) arg))
  5.                    (apply list* args))))

=>