picolisp

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

Bug in 'who'
Diffstat:
M
CHANGES
 | 
1
+
M
ersatz/lib.l
 | 
4
++--
M
lib/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"))