You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
410 B
Racket
16 lines
410 B
Racket
#lang racket
|
|
(provide #%top-interaction #%module-begin
|
|
(rename-out [my-datum #%datum]
|
|
[my-datum #%top]
|
|
[my-app #%app]))
|
|
|
|
(define-syntax (my-datum stx)
|
|
(syntax-case stx ()
|
|
[(_ . THING) #''taco]))
|
|
|
|
(define-syntax (my-app stx)
|
|
(syntax-case stx ()
|
|
[(_ FUNC . ARGS) #'(list (my-datum) . ARGS)]))
|
|
|
|
(module reader syntax/module-reader
|
|
atomic-taco-demo) |