fix R5RS `caar', etc., when used in a non-application position

Closes PR 11558
2010-12-20 07:25:19 -07:00 · 2010-12-20 07:25:19 -07:00 · b6167c23d5
commit b6167c23d5
parent abf2215de7
1 changed files with 4 additions and 1 deletions
--- a/collects/r5rs/main.rkt
+++ b/collects/r5rs/main.rkt
@ -79,11 +79,14 @@
    (syntax-rules ()
      [(_ id orig mc1r mc2r)
       (begin
+         (define proc-id
+           (let ([id (lambda (x) (mc1r (mc2r x)))])
+             id))
         (define-syntax id
           (syntax-id-rules (set!)
             [(_ x) (mc1r (mc2r x))]
             [(set! _ v) (set! orig v)]
-             [_ (lambda (x) (mc1r (mc2r x)))]))
+             [_ proc-id]))
         (provide (rename-out [id orig])))]))

  (provide-inlined-combo mcaar caar mcar mcar)