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

More bash completion
Diffstat:
Mlib/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)