picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mlib/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)) )