step

quad/qtest/demo-footnotes.rkt

@@ -5,7 +5,6 @@
 
 '(q ((flow "footnote")(fn-text "0")(font-size-adjust "80%")(line-heightr-adjust "70%")) "Leftover from previous footnote." (q ((break "para"))))
 
-
 "Hello" '(q ((fn-ref "1")) "*")
 
 '(q ((flow "footnote")(fn-text "1")(font-size-adjust "80%")(line-height-adjust "70%")) (q ((fn-text-start "1")) "*") "A convertible value in the sense of convertible? is used in a renderer-specific way, but values convertible to 'text renders the same as the resulting string. If a renderer is not able to convert the value to a known format, the value is converted to a string using write." (q ((break "para"))))

quad/quadwriter/layout.rkt

@@ -654,9 +654,9 @@
    (quad-update! q [from-parent (or where (quad-from q))])
    (cons q rest)])
 
-(define ((col-finish-wrap col-quad) lns q0 ending-q idx [fn-lines null])
-  (define reversed-fn-lines
-    (from-parent (for/list ([fn-line (in-list (reverse fn-lines))])
+(define ((col-finish-wrap col-quad) lns q0 ending-q idx [reversed-fn-lines null])
+  (define fn-lines
+    (from-parent (for/list ([fn-line (in-list reversed-fn-lines)])
                    ;; position bottom to top, in reverse
                    (quad-update! fn-line
                                  [from 'nw]
@@ -667,7 +667,7 @@
                       ;; move block attrs up, so they are visible in page wrap
                       [attrs (copy-block-attrs (quad-attrs line)
                                                (hash-copy (quad-attrs col-quad)))]
-                      [elems (append (from-parent (insert-blocks lns) 'nw) reversed-fn-lines)]))]
+                      [elems (append (from-parent (insert-blocks lns) 'nw) fn-lines)]))]
     [_ null]))
 
 #|