Format with air

Two single-statement loop bodies in test-loops.R are marked `# fmt: skip`
rather than reformatted. Those functions are the regression tests for the
single-statement-body hoist fix, and their point is that the body is *not*
a `{` block; letting air brace them would leave the tests passing against
the already-working braced path and silently stop covering the bug.

Author: mns-nordicals

tests/testthat/test-loops.R

@@ -112,6 +112,7 @@ test_that("single-statement while/repeat bodies re-run their hoisted statements"
   #
   # Run-tested only via the snapshots: a regression in either would
   # compute the product once before the loop and never terminate.
+  # fmt: skip
   squarings_while <- function(m) {
     declare(type(m = double(2, 2)))
     while (m[1, 1] < 100) m <- m %*% m
@@ -120,6 +121,7 @@ test_that("single-statement while/repeat bodies re-run their hoisted statements"
 
   expect_translation_snapshots(squarings_while)
 
+  # fmt: skip
   squarings_repeat <- function(m) {
     declare(type(m = double(2, 2)))
     repeat m <- m %*% m