Support for (^:block do ...).