Fixup for compiling new table module.

src/Makefile

@@ -400,7 +400,7 @@ TABLE-SOURCES=table.scm sgr-list.import.scm sgr-block.import.scm	\
 table.o: table.import.scm
 table.import.scm: $(TABLE-SOURCES)
 
-SGR-LIST-SOURCES=sgr-list.scm raket-kwargs.import.scm			\
+SGR-LIST-SOURCES=sgr-list.scm racket-kwargs.import.scm			\
 	sgr-state.import.scm testing.import.scm util-utf8.import.scm
 
 sgr-list.o: sgr-list.import.scm

src/sgr-state.scm

@@ -117,7 +117,7 @@
 	    (= (bitwise-and v (bitwise-not sgr-state-bit-mask)) 0))
        (and (pair? v)
 	    (fixnum? (car v))
-	    (= (bitwise-and v (bitwise-not sgr-state-bit-mask)) 0)
+	    (= (bitwise-and (car v) (bitwise-not sgr-state-bit-mask)) 0)
 	    (pair? (cdr v))
 	    (or (not (cadr v))
 		(and (fixnum? (cadr v))

src/table-processor.scm

@@ -173,7 +173,7 @@
  (define (table-prepare tbl width-arg widths-spec)
    (if (or (null? tbl)
 	   (null? (car tbl)))
-       '()
+       (values '() '())
        (let* ((ptbl (table-prepare-cells tbl))
 	      ;;(_ (print ptbl))
 	      (num-columns (length (car ptbl)))

src/util-utf8.scm

@@ -163,7 +163,10 @@
 					      3))
 				     ((= (bitwise-and byte #b11110000) #b11110000)
 				      (values (bitwise-and byte #b111)
-					      4)))))
+					      4))
+				     (else
+				      ;; Should not happen
+				      (values 0 0)))))
 			   (loop (cdr bytes)
 				 (list byte)
 				 (arithmetic-shift first-byte 6)