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 6b87f685d7c40f70976d6caf2af4958888b00039
parent 30061723057375918b1b8bb38ec84d57ee1df8a7
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 28 Jul 2011 15:40:46 +0200

Newline fine-control
Diffstat:
Mlib/tex.l | 11++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/tex.l b/lib/tex.l @@ -1,4 +1,4 @@ -# 27jul11abu +# 28jul11abu # (c) Software Lab. Alexander Burger # Convert to PDF document @@ -18,7 +18,7 @@ (prinl) ) (de tex (S . @) - (prin "\\" S) + (prin "\\" (or S (next))) (when (args) (prin "{") (_tex (next)) @@ -27,16 +27,17 @@ (prin "\\\\") (_tex (arg)) ) ) (prin "}") ) - (prinl) ) + (and S (prinl)) ) (de texl (S Lst) - (prin "\\" S "{") + (prin "\\" (or S (next)) "{") (_tex (pop 'Lst)) (while Lst (when (pop 'Lst) (prin "\\\\") (_tex @) ) ) - (prinl "}") ) + (prin "}") + (and S (prinl)) ) (de _tex (X) (for C (chop X)