From 252e4ce5906f868acd7aa2eeb64ffd229d52b121 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 9 Mar 2014 07:24:14 -0600
Subject: [PATCH] r{5,6}rs: fix `c[ad][ad]r` on wrong number of arguments

Closes PR 14388
---
 pkgs/r5rs-pkgs/r5rs-lib/r5rs/main.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pkgs/r5rs-pkgs/r5rs-lib/r5rs/main.rkt b/pkgs/r5rs-pkgs/r5rs-lib/r5rs/main.rkt
index b8523e64f2..1a96490349 100644
--- 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])))]))