Prepare for ANSI resets.

src/table-border.scm

@@ -134,17 +134,21 @@
 		   (cdr cws)
 		   (cdr col-seps)))))))
 
+ ;; Universal block maker
+ (define (make-table-vertical-sgr-block height str)
+   (let loop ((height height)
+	      (res '()))
+     (if (= height 0)
+	 res
+	 (loop (sub1 height)
+	       (cons (list 0 (cons str 1))
+		     res)))))
+
  ;; Returns a SGR-block of correct height
  (define* (table-border-vertical height left-borders right-borders (unicode? #t))
    (let* ((ch (table-border-char-horizontal left-borders right-borders unicode?))
 	  (str (utf8-char->string ch)))
-     (let loop ((height height)
-		(res '()))
-       (if (= height 0)
-	   res
-	   (loop (sub1 height)
-		 (cons (list 0 (cons str 1))
-		       res))))))
+     (make-table-vertical-sgr-block height str)))
 
  ;; Returns true if the border should be drawn between these two rows
  (define (table-border-between-rows? row0 row1)