picolisp

commit 480ab31924f479ccc6b3972249f361732c13d823
parent 27557fc506ce9a60ee9eb52556e544df6b5cc326
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 27 Jul 2011 14:27:55 +0200

Minor cosmetics
Diffstat:
M
lib/tex.l
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/tex.l b/lib/tex.l
@@ -42,19 +42,19 @@
          (let N 0
             (for (L (chop X) L (cdr L))
                (cond
-                  ((and (= "!" (car L)) (= "{" (cadr L)))
+                  ((head '("!" "{") L)
                      (prin "\\textbf{")
                      (inc 'N)
                      (pop 'L) )
-                  ((and (= "/" (car L)) (= "{" (cadr L)))
+                  ((head '("/" "{") L)
                      (prin "\\textit{")
                      (inc 'N)
                      (pop 'L) )
-                  ((and (= "_" (car L)) (= "{" (cadr L)))
+                  ((head '("_" "{") L)
                      (prin "\\underline{")
                      (inc 'N)
                      (pop 'L) )
-                  ((and (= "\^" (car L)) (= "{" (cadr L)))
+                  ((head '("\^" "{") L)
                      (prin "\^{")
                      (inc 'N)
                      (pop 'L) )