format/j1: fix loop mistake

test/common/formatter/corpus/comments.test.gc

@@ -62,9 +62,7 @@ Block Comment - Single Line
 
 ---
 
-#|
-block comment
-|#
+#| block comment |#
 
 ===
 Block Comment - Don't Allow Content on Opening Brace
@@ -85,6 +83,26 @@ Block Comment - Don't Allow Content on Opening Brace
 
 (println "test")
 
+===
+Block Comment - Don't continually add indentation
+===
+
+(begin
+  #|
+    block comment
+    test
+  |#
+  (println "something"))
+
+---
+
+(begin
+  #|
+    block comment
+    test
+  |#
+  (println "something"))
+
 ===
 Block Comment - Allow Annotations
 ===
@@ -118,8 +136,8 @@ Block Comment - In Form
 
 (println
   #|
-   block comment
-   test
+ block comment
+ test
   |#
   "test")
 
@@ -150,9 +168,7 @@ Block at the end of a form
 ---
 
 (println "hello world"
-         #|
-          wow look at that block comment
-         |#
+         #| wow look at that block comment |#
          )
 
 ===
@@ -193,3 +209,15 @@ TODO - Comments in arg lists
                         &key (version 6) ;; do NOT use this!
                         )
   (println "hello"))
+
+===
+Block comment - preserve @file
+===
+
+#|@file
+ Compiler Setup for Jak 1
+|#
+
+---
+
+#|@file Compiler Setup for Jak 1 |#