commit a24033c586ff4948537ef592027809cf6f3af2af
parent 6b71c3f1536fdba51ff2b26baf919edeee506b52
Author: Commit-Bot <unknown>
Date: Mon, 22 Nov 2010 09:09:45 +0000
Automatic commit from picoLisp.tgz, From: Mon, 22 Nov 2010 09:09:45 GMT
Diffstat:
6 files changed, 25 insertions(+), 26 deletions(-)
diff --git a/doc/ref.html b/doc/ref.html
@@ -1123,7 +1123,7 @@ functions, and (re)invoked as needed. In this regard coroutines are similar to
<p>When the tag goes out of scope while it is not actively running, the
coroutine will be garabage collected. In cases where this is desired, using a <a
-href="#transient">transient</a> symbol or a number for the tag is recommended.
+href="#transient">transient</a> symbol for the tag is recommended.
<p>A coroutine is created by calling <code><a href="refC.html#co">co</a></code>.
Its <code>prg</code> body will be executed, and unless <code><a
diff --git a/doc/refC.html b/doc/refC.html
@@ -558,9 +558,9 @@ copied, while atoms are returned unchanged.
-> T
</code></pre>
-<dt><a name="co"><code>(co 'any [. prg]) -> any</code></a>
+<dt><a name="co"><code>(co 'sym [. prg]) -> any</code></a>
<dd>(64-bit version only) Starts, resumes or stops a <a
-href="ref.html#coroutines">coroutine</a> with the tag given by <code>any</code>.
+href="ref.html#coroutines">coroutine</a> with the tag given by <code>sym</code>.
If <code>prg</code> is not given, a coroutine with that tag will be stopped.
Otherwise, if a coroutine running with that tag is found (pointer equality is
used for comparison), its execution is resumed. Else a new coroutine with that
diff --git a/doc/refY.html b/doc/refY.html
@@ -11,11 +11,11 @@
<dl>
-<dt><a name="yield"><code>(yield 'any ['any2]) -> any</code></a>
+<dt><a name="yield"><code>(yield 'any ['sym]) -> any</code></a>
<dd>(64-bit version only) Transfers control from the current <a
href="ref.html#coroutines">coroutine</a> back to the caller (when the
-<code>any2</code> tag is not given), or to some other coroutine (specified by
-<code>any2</code>) to continue execution at the point where that coroutine had
+<code>sym</code> tag is not given), or to some other coroutine (specified by
+<code>sym</code>) to continue execution at the point where that coroutine had
called <code>yield</code> before. In the first case, the value <code>any</code>
will be returned from the corresponding <code><a
href="refC.html#co">co</a></code> call, in the second case it will be the return
diff --git a/lib/tags b/lib/tags
@@ -1,5 +1,5 @@
-! (2842 . "@src64/flow.l")
-$ (2944 . "@src64/flow.l")
+! (2841 . "@src64/flow.l")
+$ (2943 . "@src64/flow.l")
% (2570 . "@src64/big.l")
& (2791 . "@src64/big.l")
* (2389 . "@src64/big.l")
@@ -46,7 +46,7 @@ bool (1721 . "@src64/flow.l")
box (822 . "@src64/flow.l")
box? (999 . "@src64/sym.l")
by (1547 . "@src64/apply.l")
-bye (3423 . "@src64/flow.l")
+bye (3422 . "@src64/flow.l")
caaaar (271 . "@src64/subr.l")
caaadr (288 . "@src64/subr.l")
caaar (99 . "@src64/subr.l")
@@ -61,7 +61,7 @@ caddar (409 . "@src64/subr.l")
cadddr (435 . "@src64/subr.l")
caddr (156 . "@src64/subr.l")
cadr (45 . "@src64/subr.l")
-call (3075 . "@src64/flow.l")
+call (3074 . "@src64/flow.l")
car (5 . "@src64/subr.l")
case (1962 . "@src64/flow.l")
catch (2462 . "@src64/flow.l")
@@ -114,7 +114,7 @@ diff (2576 . "@src64/subr.l")
dir (2800 . "@src64/main.l")
dm (543 . "@src64/flow.l")
do (2136 . "@src64/flow.l")
-e (2905 . "@src64/flow.l")
+e (2904 . "@src64/flow.l")
echo (4289 . "@src64/io.l")
env (625 . "@src64/main.l")
eof (3429 . "@src64/io.l")
@@ -139,7 +139,7 @@ flip (1686 . "@src64/subr.l")
flush (4994 . "@src64/io.l")
fold (3343 . "@src64/sym.l")
for (2225 . "@src64/flow.l")
-fork (3249 . "@src64/flow.l")
+fork (3248 . "@src64/flow.l")
format (2089 . "@src64/big.l")
free (2047 . "@src64/db.l")
from (3448 . "@src64/io.l")
@@ -166,12 +166,12 @@ inc (2256 . "@src64/big.l")
index (2624 . "@src64/subr.l")
info (2704 . "@src64/main.l")
intern (875 . "@src64/sym.l")
-ipid (3194 . "@src64/flow.l")
+ipid (3193 . "@src64/flow.l")
isa (959 . "@src64/flow.l")
job (1426 . "@src64/flow.l")
journal (970 . "@src64/db.l")
key (3279 . "@src64/io.l")
-kill (3226 . "@src64/flow.l")
+kill (3225 . "@src64/flow.l")
last (2031 . "@src64/subr.l")
length (2700 . "@src64/subr.l")
let (1476 . "@src64/flow.l")
@@ -235,7 +235,7 @@ on (1583 . "@src64/sym.l")
onOff (1613 . "@src64/sym.l")
one (1646 . "@src64/sym.l")
open (4220 . "@src64/io.l")
-opid (3210 . "@src64/flow.l")
+opid (3209 . "@src64/flow.l")
opt (2990 . "@src64/main.l")
or (1637 . "@src64/flow.l")
out (4114 . "@src64/io.l")
@@ -312,13 +312,13 @@ super (1218 . "@src64/flow.l")
sym (3910 . "@src64/io.l")
sym? (2421 . "@src64/subr.l")
sync (3091 . "@src64/io.l")
-sys (3046 . "@src64/flow.l")
+sys (3045 . "@src64/flow.l")
t (1748 . "@src64/flow.l")
tail (1898 . "@src64/subr.l")
tell (3163 . "@src64/io.l")
text (1272 . "@src64/sym.l")
throw (2488 . "@src64/flow.l")
-tick (3162 . "@src64/flow.l")
+tick (3161 . "@src64/flow.l")
till (3515 . "@src64/io.l")
time (2514 . "@src64/main.l")
touch (1049 . "@src64/sym.l")
@@ -345,7 +345,7 @@ wr (5119 . "@src64/io.l")
xchg (1538 . "@src64/sym.l")
xor (1698 . "@src64/flow.l")
x| (2871 . "@src64/big.l")
-yield (2700 . "@src64/flow.l")
+yield (2699 . "@src64/flow.l")
yoke (1187 . "@src64/subr.l")
zap (1063 . "@src64/sym.l")
zero (1631 . "@src64/sym.l")
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 22nov10abu
+# 12oct10abu
# (c) Software Lab. Alexander Burger
(code 'redefMsgEC)
@@ -2540,12 +2540,11 @@
pop X
ret
-# (co 'any [. prg]) -> any
+# (co 'sym [. prg]) -> any
(code 'doCo 2)
push X
ld X (E CDR) # Get tag
- ld E (X)
- eval # Evaluate 'any'
+ call evSymX_E # Evaluate to a symbol
atom (X CDR) # 'prg'?
if z # Yes
push Y
@@ -2696,7 +2695,7 @@
pop X
ret
-# (yield 'any ['any2]) -> any
+# (yield 'any ['sym]) -> any
(code 'doYield 2)
push X
push Y
@@ -2713,7 +2712,7 @@
link
ld Y (Y CDR) # Next arg
ld E (Y)
- eval # Eval optional 'any2'
+ eval # Eval optional 'sym'
ld Y 0 # Preload "no target"
cmp E Nil # Any?
if ne # Yes
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 22nov10abu
+# 19nov10abu
# (c) Software Lab. Alexander Burger
-(de *Version 3 0 4 13)
+(de *Version 3 0 4 12)
# vi:et:ts=3:sw=3
