lassik
/
scheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Refactor 

cond to if
This commit is contained in:
Lassi Kortela 2019-03-28 12:37:15 +02:00
parent 08577fa7c1
commit 601621f7dc
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tex-parser.scm
View File

@ -16,11 +16,10 @@
(define (read-tex-thing)
(cond ((read-char? #\\)
(let ((command (read-char* tex-command-char?)))
(cond (command
(cons (string->symbol command)
(read-tex-command-args)))
(else
(read-char* not-tex-special-char?)))))
(if command
(cons (string->symbol command)
(read-tex-command-args))
(read-char* not-tex-special-char?))))
((read-char? #\{)
(cons 'math (read-tex-until #\})))
(else (read-char* not-tex-special-char?))))