suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add verbose-app

Browse Source
This commit is contained in:
Matthew Butterick 2016-09-02 11:42:38 -07:00
parent 9a8b95a9f0
commit f30922a7dc
1 changed files with 10 additions and 0 deletions

10
beautiful-racket-lib/br/verbose-app.rkt Normal file
View File

@ -0,0 +1,10 @@
#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))