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.
beautiful-racket/beautiful-racket-demo/atomic-taco-demo/main.rkt

16 lines
406 B
Racket

#lang br
(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)