picolisp

commit b33acfcfa2ebbfe34868d0a48d6bad78aff3fdde
parent 9decb07891f314e7592c141b7c27158f95231d95
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 29 Dec 2011 17:04:12 +0100

More bash completion
Diffstat:
M
lib/complete.l
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/complete.l b/lib/complete.l
@@ -8,7 +8,7 @@
             (setq "Pre" (pop '"Lst")) )
          (let "Str" (pack "Lst")
             (for "Sym" (all)
-               (and (pre? "Str" "Sym") (prinl "Pre" "Sym")) ) ) )
+               (and (pre? "Str" "Sym") (getd "Sym") (prinl "Pre" "Sym")) ) ) )
       (let ("Path" (rot (split "Lst" "/"))  "Str" (pack (car "Path")))
          (setq "Path" (and (cdr "Path") (pack (glue "/" @) "/")))
          (for "Sym" (dir "Path" T)