picolisp

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

Newline fine-control
Diffstat:
M
lib/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)