parent
08577fa7c1
commit
601621f7dc
|
@ -16,11 +16,10 @@
|
||||||
(define (read-tex-thing)
|
(define (read-tex-thing)
|
||||||
(cond ((read-char? #\\)
|
(cond ((read-char? #\\)
|
||||||
(let ((command (read-char* tex-command-char?)))
|
(let ((command (read-char* tex-command-char?)))
|
||||||
(cond (command
|
(if command
|
||||||
(cons (string->symbol command)
|
(cons (string->symbol command)
|
||||||
(read-tex-command-args)))
|
(read-tex-command-args))
|
||||||
(else
|
(read-char* not-tex-special-char?))))
|
||||||
(read-char* not-tex-special-char?)))))
|
|
||||||
((read-char? #\{)
|
((read-char? #\{)
|
||||||
(cons 'math (read-tex-until #\})))
|
(cons 'math (read-tex-until #\})))
|
||||||
(else (read-char* not-tex-special-char?))))
|
(else (read-char* not-tex-special-char?))))
|
||||||
|
|
Loading…
Reference in New Issue