diff --git a/beautiful-racket-lib/br/define.rkt b/beautiful-racket-lib/br/define.rkt index 1e283f9..3a06813 100644 --- a/beautiful-racket-lib/br/define.rkt +++ b/beautiful-racket-lib/br/define.rkt @@ -20,11 +20,11 @@ (require rackunit racket/port) (parameterize ([current-output-port (open-output-nowhere)]) (check-equal? (let () - (br:debug-define #'(foo ) - #'(apply + (list ))) + (br:debug-define #'(foo X Y Z) + #'(apply + (list X Y Z))) (foo 1 2 3)) 6) (check-equal? (let () - (br:debug-define #'(foo ...) #'(apply * (list ...))) + (br:debug-define #'(foo X ...) #'(apply * (list X ...))) (foo 10 11 12)) 1320)))