r{5,6}rs: fix c[ad][ad]r
on wrong number of arguments
Closes PR 14388
This commit is contained in:
parent
c27930f939
commit
252e4ce590
|
@ -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])))]))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user