suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Closes PR 11558
This commit is contained in:
Matthew Flatt 2010-12-20 07:25:19 -07:00
parent abf2215de7
commit b6167c23d5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/r5rs/main.rkt
View File

@ -79,11 +79,14 @@
(syntax-rules () (syntax-rules ()
[(_ id orig mc1r mc2r) [(_ id orig mc1r mc2r)
(begin (begin
(define proc-id
(let ([id (lambda (x) (mc1r (mc2r x)))])
id))
(define-syntax id (define-syntax id
(syntax-id-rules (set!) (syntax-id-rules (set!)
[(_ x) (mc1r (mc2r x))] [(_ x) (mc1r (mc2r x))]
[(set! _ v) (set! orig v)] [(set! _ v) (set! orig v)]
[_ (lambda (x) (mc1r (mc2r x)))])) [_ proc-id]))
(provide (rename-out [id orig])))])) (provide (rename-out [id orig])))]))
(provide-inlined-combo mcaar caar mcar mcar) (provide-inlined-combo mcaar caar mcar mcar)