Changeset 179 for trunk/thune/scripts

Timestamp:

06/10/06 02:17:23 (3 years ago)

Author:

krobillard

Message:

Thune - Added 'either.

Files:

• trunk/thune/scripts/opcode_ratio.t (modified) (1 diff)

trunk/thune/scripts/opcode_ratio.t

@@ -15 +15 @@
             paren!  [calc-ratio]
             word!   [drop words inc :words]
-            opcode! [stack-ops swap find dup
-                     ift (ops inc :ops)
-                     iff (words inc :words)
+            opcode! [stack-ops swap find
+                        [ops inc :ops]
+                        [words inc :words] either
                     ]
             [drop]