Made tabs into spaces.
original commit: 6e00ae83d38ac85f7f9843f8fe0ad01f16d5bc85
This commit is contained in:
parent
21dd96b28a
commit
35c4abd049
|
@ -13,11 +13,11 @@
|
|||
[(_ arg:expr attr:id pat)
|
||||
(let* ([i (generate-temporary)]
|
||||
[get-i (datum->syntax
|
||||
i
|
||||
(string->symbol
|
||||
(string-append (symbol->string (syntax-e i))
|
||||
"."
|
||||
(symbol->string (syntax-e #'attr)))))])
|
||||
i
|
||||
(string->symbol
|
||||
(string-append (symbol->string (syntax-e i))
|
||||
"."
|
||||
(symbol->string (syntax-e #'attr)))))])
|
||||
(quasisyntax/loc stx
|
||||
(syntax-parse arg
|
||||
[#,i #:declare #,i pat #'#,get-i])))]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user