Fix a very *REDACTED* mistake

2024-09-10 23:07:53 -07:00 · 2024-09-10 23:07:53 -07:00 · c52706e4b2
commit c52706e4b2
parent 2bdf936160
1 changed files with 1 additions and 1 deletions
--- a/typeset.lisp
+++ b/typeset.lisp
@ -243,7 +243,7 @@ between each row."
              pretty-print pretty-print)
      (let ((format-str
              (if latin-truths
-                  "~{$ ~:[\\textrm{F}~;\\textrm{T}~] $~^ & ~} \\\\~:[ ~;~%  ~]"
+                  "~{~:[F~;T~]~^ & ~} \\\\~:[ ~;~%  ~]"
                  "~{$ ~:[\\bot~;\\top~] $~^ & ~} \\\\~:[ ~;~%  ~]")))
        (dolist (row (extract-truth-table-values table))
          (format str format-str row pretty-print)))