Preserve undocumented args syntax class attribute.

PR #2678 unintentionally removed this attribute, but it was used
at least by "collections-lib" and "static-rename-lib".

cc @sorawee @lexi-lambda @jackfirth @rmculpepper
This commit is contained in:
Sam Tobin-Hochstadt 2020-03-04 14:19:16 -05:00 committed by Sam Tobin-Hochstadt
parent cc76761c1f
commit 8a63d80379

View File

@ -6,7 +6,7 @@
(provide function-header formal formals) (provide function-header formal formals)
(define-syntax-class function-header (define-syntax-class function-header
#:attributes (name params) #:attributes (name params args)
(pattern ((~or header:function-header name*:id) . args:formals) (pattern ((~or header:function-header name*:id) . args:formals)
#:attr params #'((~@ . (~? header.params ())) . args.params) #:attr params #'((~@ . (~? header.params ())) . args.params)
#:attr name #'(~? header.name name*))) #:attr name #'(~? header.name name*)))