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.
11 lines
358 B
Racket
11 lines
358 B
Racket
8 years ago
|
#lang br
|
||
|
|
(require (prefix-in br: (only-in br #%app)))
|
||
|
|
(provide #%app)
|
||
|
|
|
||
|
|
(define-macro (#%app APP ARG ...)
|
||
|
|
#'(let ()
|
||
|
|
(br:#%app displayln (br:#%app format "handling subexpressions in ~a" '(APP ARG ...)))
|
||
|
|
(define result (br:#%app APP ARG ...))
|
||
|
|
(br:#%app displayln (br:#%app format "evaluating ~a = ~a" '(APP ARG ...) result ))
|
||
|
|
result))
|