Made tabs into spaces.

This commit is contained in:
Eric Dobson 2013-11-11 21:43:04 -08:00
parent 28321ca4ed
commit 6e00ae83d3

View File

@ -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])))]))