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 1887c0e6ac9547d4ba33c91ed185f25ea5fff323
parent ef6a5a732a84d639f0566b6001037008b4147af2
Author: Commit-Bot <unknown>
Date:   Fri, 11 Jun 2010 09:00:43 +0000

Automatic commit from picoLisp.tgz, From: Fri, 11 Jun 2010 09:00:43 GMT
Diffstat:
Mdoc/refY.html | 4++--
Msrc64/flow.l | 2+-
Mtest/src/flow.l | 15++++++++++++++-
3 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/doc/refY.html b/doc/refY.html @@ -31,8 +31,8 @@ href="refT.html#throw">throw</a></code>. -> 1 : (co "rt2" # Start second routine - (yield 3 "rt1") ) # Send '3' to "rt1" -3 in rt1 from rt2 + (yield 2 "rt1") ) # Send '2' to "rt1" +2 in rt1 from rt2 -> 7 </code></pre> diff --git a/src64/flow.l b/src64/flow.l @@ -2646,7 +2646,7 @@ while nz # No ld Y (A) # Next frame loop - ld (Y) L # Link to main stack + ld (Y) (Z (pack III "+(EnvMid-EnvCo)")) # Link to main stack ld L X end pop Z diff --git a/test/src/flow.l b/test/src/flow.l @@ -1,4 +1,4 @@ -# 22mar10abu +# 11jun10abu # (c) Software Lab. Alexander Burger ### quote ### @@ -418,6 +418,19 @@ X ) ) +### co yield ### +(when (== 64 64) + (test (1 2 3 (1 2 3)) + (make + (do 4 + (link + (co "co123" + (make + (yield (link 1)) + (yield (link 2)) + (yield (link 3)) ) ) ) ) ) ) ) + + ### sys ### (test "PicoLisp" (sys "TEST" "PicoLisp")) (test "PicoLisp" (sys "TEST"))