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

Backslashes in tab expansion
Diffstat:
Mlib/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))