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

Closes PR 14388
2014-03-09 07:24:14 -06:00 · 2014-03-09 07:24:14 -06:00 · 252e4ce590
commit 252e4ce590
parent c27930f939
1 changed files with 1 additions and 0 deletions
--- a/pkgs/r5rs-pkgs/r5rs-lib/r5rs/main.rkt
+++ b/pkgs/r5rs-pkgs/r5rs-lib/r5rs/main.rkt
@ -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])))]))