picolisp

commit 08b8526ef7966114dab8163d120da32bca3d6098
parent a4c6aceba7653b3682efcc5ca49b972195dba7ec
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 27 Jul 2011 16:18:52 +0200

Backslashes in tab expansion
Diffstat:
M
lib/led.l
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/lib/led.l b/lib/led.l
@@ -1,4 +1,4 @@
-# 15apr11abu
+# 27jul11abu
 # (c) Software Lab. Alexander Burger
 
 # Line editor
@@ -254,9 +254,11 @@
                      '((X)
                         (setq X
                            (nth
-                              (mapcar
+                              (mapcan
                                  '((C)
-                                    (if (delim? C) (pack "\\" C) C) )
+                                    (if (or (= "\\" C) (delim? C))
+                                       (list "\\" C)
+                                       (cons C) ) )
                                  (chop X) )
                               "N" ) )
                         (cons
@@ -382,7 +384,7 @@
    (default "tabFun"
       '((S)
          (conc
-            (filter '((X) (pre? S X)) (all))
+            (filter '((X) (pre? S (sym X))) (all))
             (let P (rot (split (chop S) "/"))
                (setq
                   S (pack (car P))