r{5,6}rs: fix c[ad][ad]r on wrong number of arguments

Closes PR 14388
This commit is contained in:
Matthew Flatt 2014-03-09 07:24:14 -06:00
parent c27930f939
commit 252e4ce590

View File

@ -85,6 +85,7 @@
(syntax-id-rules (set!)
[(_ x) (mc1r (mc2r x))]
[(set! _ v) (set! orig v)]
[(_ . args) (proc-id . args)]
[_ proc-id]))
(provide (rename-out [id orig])))]))