clean up formatting on gmi:render procedure and document

gmi.rkt

@@ -125,16 +125,20 @@
                 (map string-join (outer-iter (list) (string-split paragraph))))
       (newline)))
 
+;; given a document, which is a list of structs, render it out into
+;; the current output port exactly as it will be shown to the user
 (define (render document)
-  (for-each (λ (line)
-              (cond [(text? line)
-                     (render-paragraph (text-str line))]
+  (for-each
+   (λ (line)
+     (cond
+       [(text? line)
+        (render-paragraph (text-str line))]
 
-                    [(pre? line)
-                     (for-each (λ (line)
-                                 (displayln line))
-                               (pre-str line))]
+       [(pre? line)
+        (for-each (λ (line)
+                    (displayln line))
+                  (pre-str line))]
 
-                    [(link? line)
-                     (printf "[~a] ~a\n" (link-ord line) (link-str line))]))
-            document))
+       [(link? line)
+        (printf "[~a] ~a\n" (link-ord line) (link-str line))]))
+   document))