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 4f4c96f65b61da9376e895637251d180a55caa72
parent c8cabc4611f1871455a0ca198029bb6b67f85bee
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 13 Apr 2012 11:53:33 +0200

Bug in 'who'
Diffstat:
MCHANGES | 1+
Mersatz/lib.l | 4++--
Mlib/debug.l | 4++--
3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/CHANGES b/CHANGES @@ -1,4 +1,5 @@ * DDmmm12 picoLisp-3.1.1 + Bug in 'who' * 10apr12 picoLisp-3.1.0 Generalized 'scl' diff --git a/ersatz/lib.l b/ersatz/lib.l @@ -1,4 +1,4 @@ -# 07apr12abu +# 13apr12abu # (c) Software Lab. Alexander Burger (setq *OS (java (java "java.lang.System" "getProperty" "os.name"))) @@ -1374,7 +1374,7 @@ (push '"Who" "Y") (ifn (= `(char "+") (char "Y")) (and (pair (val "Y")) ("nest" @) (link "Y")) - (for "Z" (val "Y") + (for "Z" (pair (val "Y")) (if (atom "Z") (and ("match" "Z") (link "Y")) (when ("nest" (cdr "Z")) diff --git a/lib/debug.l b/lib/debug.l @@ -1,4 +1,4 @@ -# 01nov11abu +# 13apr12abu # (c) Software Lab. Alexander Burger # Prompt @@ -71,7 +71,7 @@ (push '"Who" "Y") (ifn (= `(char "+") (char "Y")) (and (pair (val "Y")) ("nest" @) (link "Y")) - (for "Z" (val "Y") + (for "Z" (pair (val "Y")) (if (atom "Z") (and ("match" "Z") (link "Y")) (when ("nest" (cdr "Z"))