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

de-angling

Browse Source
This commit is contained in:
Matthew Butterick 2016-04-19 22:59:28 -07:00
parent 2c136222b5
commit cca2376b9b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
beautiful-racket-lib/br/define.rkt
View File

@ -20,11 +20,11 @@
(require rackunit racket/port)
(parameterize ([current-output-port (open-output-nowhere)])
(check-equal? (let ()
(br:debug-define #'(foo <x> <y> <z>)
#'(apply + (list <x> <y> <z>)))
(br:debug-define #'(foo X Y Z)
#'(apply + (list X Y Z)))
(foo 1 2 3)) 6)
(check-equal? (let ()
(br:debug-define #'(foo <x> ...) #'(apply * (list <x> ...)))
(br:debug-define #'(foo X ...) #'(apply * (list X ...)))
(foo 10 11 12)) 1320)))