Made tabs into spaces.

original commit: 6e00ae83d38ac85f7f9843f8fe0ad01f16d5bc85
This commit is contained in:
Eric Dobson 2013-11-11 21:43:04 -08:00
parent 21dd96b28a
commit 35c4abd049

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