Fix table generating in diff display

Julien LepillerSun Mar 07 03:10:10+0100 2021

4349014

Fix table generating in diff display

gitile/pages.scm

205205 
  (let ((content '()) (file-header #f) (file-content #f) (first-hunk #t))
206206 
    (diff-foreach diff
207207 
      (lambda (delta progress)
208-
        (pk 'file delta progress)
209208 
        (when file-header
210-
          (set! content (append content (cons file-header `((table (@ (class "file-diff")) ,(reverse file-content)))))))
209+
          (set! content (append content (cons file-header `((table (@ (class "file-diff")) ,@(reverse file-content)))))))
211210 
        (set! first-hunk #t)
212211 
        (set! file-content '())
213212 
        (cond

…

252251 
                                              (pre ,line "\n"))))))
253252 
               (loop lines (+ old-line 1) (+ new-line 1))))))
254253 
        0))
255-
    (append content (cons file-header file-content))))
254+
    (append content (cons file-header `((table (@ (class "file-diff")) ,@(reverse file-content)))))))