+ (eval . (put 'with-imported-modules 'scheme-indent-function 1))
+ (eval . (put 'with-extensions 'scheme-indent-function 1))
+ (eval . (put 'with-parameters 'scheme-indent-function 1))
+ (eval . (put 'let-system 'scheme-indent-function 1))
+
+ (eval . (put 'with-database 'scheme-indent-function 2))
+ (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))
+
+ (eval . (put 'call-with-container 'scheme-indent-function 1))
+ (eval . (put 'container-excursion 'scheme-indent-function 1))
+ (eval . (put 'eventually 'scheme-indent-function 1))
+
+ (eval . (put 'call-with-progress-reporter 'scheme-indent-function 1))
+ (eval . (put 'with-repository 'scheme-indent-function 2))
+ (eval . (put 'with-temporary-git-repository 'scheme-indent-function 2))
+ (eval . (put 'with-environment-variables 'scheme-indent-function 1))
+ (eval . (put 'with-fresh-gnupg-setup 'scheme-indent-function 1))
+
+ (eval . (put 'with-paginated-output-port 'scheme-indent-function 1))