Fix syntax highlighter dropping spaces/operators in code blocks

ober

d380d888c3ce74b83ad218d41d82dc746609ab8a

diff --git a/src/jcode/ui/tui-syntax.ss b/src/jcode/ui/tui-syntax.ss
index f5768df..4c14d95 100644
--- a/src/jcode/ui/tui-syntax.ss
+++ b/src/jcode/ui/tui-syntax.ss
@@ -196,7 +196,13 @@
                  (loop (+ i 1) #f (cons (cons "[" 'syntax-punctuation) new-acc))
                  (if (char=? (string-ref line i) #\])
                    (loop (+ i 1) #f (cons (cons "]" 'syntax-punctuation) new-acc))
-                   (loop (+ i 1) #f new-acc)))))))))))
+                   ;; Any other char (space, operator, &, =, ; , …) — emit it
+                   ;; verbatim. Dropping it joined tokens, e.g.
+                   ;; "if (b & 0xE0)" -> "if(b0xE0)", "(eval-string input)" ->
+                   ;; "(eval-stringinput)".
+                   (loop (+ i 1) #f
+                     (cons (cons (string (string-ref line i)) 'code-block)
+                           new-acc))))))))))))
 
 (def (emit-token line start end kw-set lang acc)
   (let* ((word (substring line start end))