picolisp

commit 50251a366a543676be1789e8aba7d48f02fcf16a
parent 0b711ba1d3c179cd33b447d6146b7be946ce72a0
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 18 Nov 2012 10:09:56 +0100

Backtrace tuning
Diffstat:
M
test/src/main.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/src/main.l b/test/src/main.l
@@ -1,4 +1,4 @@
-# 14nov12abu
+# 17nov12abu
 # (c) Software Lab. Alexander Burger
 
 ### Evaluation ###
@@ -57,7 +57,7 @@
 (when trail
    (let
       (F '((A B) (G (inc A) (dec B)))
-         G '((X Y) (trail)) )
+         G '((X Y) (trail T)) )
       (test '(@X (F 3 4) A 3 B 4 (G (inc A) (dec B)) X 4 Y 3)
          (F 3 4) ) ) )