Changeset 503 for trunk/thune/tests/working/compare.t

Timestamp:

01/21/08 16:21:29 (10 months ago)

Author:

krobillard

Message:

Iter/each can now take skip value on stack. Each.set works again.

Files:

• trunk/thune/tests/working/compare.t (modified) (3 diffs)

trunk/thune/tests/working/compare.t

@@ -21 +21 @@
     first :cmp
 
-    ;data [a b] [
-    ;    [a b dup2 cmp do] print
-    ;] each.set
-
-    data [
-        [a b] set
+    data [a b] [
         [a b dup2 cmp do] print
-    ] iter/2
+    ] each.set
 ] proc :test
 
@@ -41 +36 @@
 
 "--- if ---" print
-data
-   ;[a b]
+data [a b]
 [
-    [a b] set
     [a b ' '
         a b if/eq '=
@@ -54 +47 @@
     ] print
 ]
-;each.set
-iter/2
+each.set