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

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

Browse Source 
Closes PR 14388
This commit is contained in:
Matthew Flatt 2014-03-09 07:24:14 -06:00
parent c27930f939
commit 252e4ce590
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/r5rs-pkgs/r5rs-lib/r5rs/main.rkt
View File

@ -85,6 +85,7 @@
(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)]
[(_ . args) (proc-id . args)]
[_ proc-id])) [_ proc-id]))
(provide (rename-out [id orig])))])) (provide (rename-out [id orig])))]))