Handle (vec OA) in (- (vec OB) (vec OA))

soegaard · Sep 20, 2024 · a236b42 · a236b42
1 parent d2f2292
commit a236b42
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/racket-cas/format.rkt b/racket-cas/format.rkt
@@ -706,8 +706,8 @@
         [(list 'diff u  x)                               (~a "\\dv{" (~var x) "}(" (v~ u #t) ") ")]
 
         [(list 'percent u) (~a (v~ u) (~sym '|%|))]
-        [(list 'abs u) ((output-format-abs) u)] 
-        [(list 'vec u) (let ([s (v~ u)])
+        [(list 'abs u) ((output-format-abs) u)]
+        [(list 'vec u) (let ([s (~a u)])
                          (if (= (string-length s) 1)
                              (~a "\\vec{" s "}")
                              (~a "\\overrightarrow{" s "}")))]                   ; TODO: only for TeX