+ (eval . (put 'call-with-transaction 'scheme-indent-function 1))
+ (eval . (put 'with-statement 'scheme-indent-function 3))
+ (eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))
+ (eval . (put 'call-with-savepoint 'scheme-indent-function 1))
+ (eval . (put 'call-with-retrying-savepoint 'scheme-indent-function 1))