--- parser3/www/htdocs/Attic/_bug.html 2004/12/23 14:40:54 1.73
+++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:21:35 1.103
@@ -1,25 +1,12 @@
-@main[]
-
-$cH[^cH[]]
-
-^if($cH.this is "junction"){
- $result[^cH.this[$cH.th_par]]
-}{
- $result[0]
+^for[i](1;200){
+
+$original[^for[j](1;$i){$j}]
+$original
+
+$encoded[^original.base64[]]
+$encoded
+
+$decoded[^string:base64[$encoded]]
+$decoded
+^if($decoded ne $original){^throw[bug;here]}
}
-
-####################################################################################################################
-
-@cH[]
-$result[
- $.this[$mThis]
- $.th_par[
- $.a(2)
- $.b(3)
- ]
-]
-####################################################################################################################
-
-@mThis[lparams][params]
-$params[^hash::create[$lparams]]
-$result[^eval($params.a * $params.b)]