picolisp

commit ece72b2464f29e5bf7cc5b7d48df26c09a895019
parent 45ef2210fef72fd1dae2def101c7fa04dae8de84
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 29 Dec 2011 10:56:03 +0100

Minor cosmetics
Diffstat:
M
lib/led.l
 | 
8
+++-----

1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/lib/led.l b/lib/led.l
@@ -1,4 +1,4 @@
-# 27jul11abu
+# 29dec11abu
 # (c) Software Lab. Alexander Burger
 
 # Line editor
@@ -384,14 +384,12 @@
    (default "tabFun"
       '((S)
          (conc
-            (filter '((X) (pre? S (sym X))) (all))
+            (filter '((X) (pre? S X)) (all))
             (let P (rot (split (chop S) "/"))
                (setq
                   S (pack (car P))
                   P (and (cdr P) (pack (glue "/" @) "/")) )
-               (extract
-                  '((X)
-                     (and (pre? S X) (pack P X)) )
+               (extract '((X) (and (pre? S X) (pack P X)))
                   (dir P T) ) ) ) ) )
    (setq "LPos" 1  "HPos" 0)
    (_getLine "Line1" (or "skipFun" delim?))