bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

qsloc.rkt (221B)


      1 #lang scheme/base
      2 (require (for-syntax scheme/base))
      3 
      4 (provide quote-syntax/loc)
      5 
      6 ;; Source locations are now preserved in the bytecode form of `quote-syntax`:
      7 (define-syntax-rule (quote-syntax/loc d)
      8   (quote-syntax d))