picolisp

commit de19d048f0f4bfbbc3d7a5eaabb4eecf35ea8e0b
parent b1d4d977dd28ce702bba40505154681e671275e8
Author: Commit-Bot <unknown>
Date:   Thu, 26 Aug 2010 12:39:22 +0000

Automatic commit from picoLisp.tgz, From: Thu, 26 Aug 2010 12:39:22 GMT
Diffstat:
M
doc/refC.html
 | 
5
+++--
M
test/src/flow.l
 | 
6
+++++-

2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/doc/refC.html b/doc/refC.html
@@ -29,8 +29,9 @@ href="refR.html#rel">rel</a></code>.
 
 <dt><a name="cache"><code>(cache 'var 'sym . prg) -> any</code></a>
 <dd>Speeds up some calculations, by holding previously calculated results in an
-<code><a href="refI.html#idx">idx</a></code> tree structure. <code>sym</code>
-must be a transient symbol representing a unique key for the argument(s) to the
+<code><a href="refI.html#idx">idx</a></code> tree structure. Such an
+optimization is sometimes called "memoization". <code>sym</code> must be a
+transient symbol representing a unique key for the argument(s) to the
 calculation.
 
 <pre><code>
diff --git a/test/src/flow.l b/test/src/flow.l
@@ -1,4 +1,4 @@
-# 11jun10abu
+# 26aug10abu
 # (c) Software Lab. Alexander Burger
 
 ### quote ###
@@ -242,6 +242,10 @@
    (if2 NIL T 'both 'first 'second 'none) )
 (test 'none
    (if2 NIL NIL 'both 'first 'second 'none) )
+(test 4 (if2 3 4 @))
+(test 7 (and 7 (if2 @ @ @)))
+(test 7 (and 7 (if2 @ NIL 1 @)))
+(test 7 (and 7 (if2 NIL @ 1 2 @)))
 
 
 ### ifn ###