--- parser3/www/htdocs/Attic/_bug.html 2004/12/23 14:40:54 1.73
+++ parser3/www/htdocs/Attic/_bug.html 2005/11/22 11:31:58 1.104
@@ -1,25 +1,13 @@
-@main[]
-
-$cH[^cH[]]
-
-^if($cH.this is "junction"){
- $result[^cH.this[$cH.th_par]]
-}{
- $result[0]
+^for[i](1;100){
+
+$original[^for[j](1;$i){$j}]
+$original[^file::create[text;original.txt;$original]]
+$original.text
+
+$encoded[^original.base64[]]
+$encoded
+
+$decoded[^file::base64[$encoded]]
+$decoded.text
+^if($decoded.text ne $original.text){^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)]