www

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

literals.rkt (300B)

      1 #lang racket
      2 
      3 (define-syntax-rule (provide-literals name ...)
      4   (begin
      5     (provide name ...)
      6     (define-syntax (name stx)
      7       (raise-syntax-error 'name
      8                           "can only be used in some special contexts"
      9                           stx))
     10     ...))
     11 
     12 (provide-literals mapping node)