Compatibility layer for table-old style.

src/Makefile

@@ -39,7 +39,7 @@ HACKERBASE-DEPS=hackerbase.scm cal-month.import.scm			\
 	mailman.import.scm texts.import.scm tests.import.scm		\
 	notifications.import.scm logging.import.scm			\
 	progress.import.scm cal-period.import.scm			\
-	util-stdout.import.scm
+	util-stdout.import.scm table-old.import.scm
 
 HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o		\
 	 cal-period.o ansi.o util-dict-list.o command-line.o mbase.o	\
@@ -405,7 +405,8 @@ racket-kwargs.import.scm: $(RACKET-KWARGS-SOURCES)
 
 TABLE-SOURCES=table.scm sgr-list.import.scm sgr-block.import.scm	\
 	racket-kwargs.import.scm table-processor.import.scm		\
-	table-border.import.scm table-style.import.scm
+	table-border.import.scm table-style.import.scm			\
+	table-old.import.scm
 
 table.o: table.import.scm
 table.import.scm: $(TABLE-SOURCES)

src/hackerbase.scm

@@ -45,7 +45,8 @@
 	cal-day
 	util-git
 	util-dict-list
-	util-stdout)
+	util-stdout
+	table-old)
 
 ;; Command-line options and configurable parameters
 (define -needs-bank- (make-parameter #f))

src/table.scm

@@ -41,7 +41,9 @@
 	 racket-kwargs
 	 table-processor
 	 table-border
-	 table-style)
+	 table-style
+	 (only table-old *table-border-style*)
+	 )
 
  (define (print-table . args)
    (print (apply table->string args)))
@@ -73,7 +75,7 @@
 			    #:border (border-spec '((none ...) ...))
 			    #:widths (widths-spec '(0 ...))
 			    #:width (width #f)
-			    #:unicode? (unicode? #t))
+			    #:unicode? (unicode? (eq? (*table-border-style*) 'unicode)))
    (let-values (((ptbl col-widths)
 		 (table-prepare tbl width widths-spec)))
      (let* ((num-columns (length (car tbl)))