picolisp

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:
M
doc/refY.html
 | 
4
++--
M
src64/flow.l
 | 
2
+-
M
test/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"))