commit bd1c0d37f81735b5398582213efc6b0b504c94a7 parent b56a5878e50accb791e440edce52bf107a102818 Author: Alexander Burger <abu@software-lab.de> Date: Fri, 29 Jul 2011 08:58:47 +0200 Extend 'texl' for multiple lists Diffstat:
| M | lib/tex.l | | | 18 | +++++++++++------- |
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/lib/tex.l b/lib/tex.l @@ -1,4 +1,4 @@ -# 28jul11abu +# 29jul11abu # (c) Software Lab. Alexander Burger # Convert to PDF document @@ -25,13 +25,17 @@ (prin "}") ) (and S (prinl)) ) -(de texl (S Lst) +(de texl (S . @) (prin "\\" (or S (next)) "{") - (texPrin (pop 'Lst)) - (while Lst - (when (pop 'Lst) - (prin "\\\\") - (texPrin @) ) ) + (loop + (let Lst (next) + (texPrin (pop 'Lst)) + (while Lst + (when (pop 'Lst) + (prin "\\\\") + (texPrin @) ) ) ) + (NIL (args)) + (prin (next)) ) (prin "}") (and S (prinl)) )