home: hub: zuo

ref: c3b0c8f5dbbf0d4de4d48aa88876b1a9893714a3
dir: /zuo-doc/fake-kernel.rkt/

#lang racket/base

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

(define-syntax-rule (intro-define-fake)
  (define-fake
    lambda
    let
    quote
    if
    define
    begin))

(intro-define-fake)