home: hub: zuo

ref: 1cc4a95509e9b17b4141d9eed6c6a04b525a7d3a
dir: /zuo-doc/fake-zuo-hygienic.rkt/

View raw version 
#lang racket/base

(define-syntax-rule (define-fake id ...)
  (begin
    (provide id ...)
    (define id 'id) ...))

(define-syntax-rule (intro-define-fake)
  (define-fake
    identifier?
    syntax-e
    syntax->datum
    datum->syntax
    bound-identifier=?))

(intro-define-fake)