--- parser3/www/htdocs/Attic/_bug.html	2004/10/07 09:23:44	1.69
+++ parser3/www/htdocs/Attic/_bug.html	2004/12/23 14:40:54	1.73
@@ -1,10 +1,25 @@
-^connect[oracle://iagency:pwd@oracle]{
-	^string:sql{select 2*2 from dual}<br>
-	^try{
-		^string:sql{select 2*2x from dual}
-	}{
-		$exception.handled(1)
-		exception($exception.comment) handled<br>
-	}
-	^string:sql{select 2*2 from dual}<br>
+@main[]
+
+$cH[^cH[]]
+
+^if($cH.this is "junction"){
+		$result[^cH.this[$cH.th_par]]
+}{
+		$result[0]
 }
+
+####################################################################################################################
+
+@cH[]
+$result[
+		$.this[$mThis]
+		$.th_par[
+				$.a(2)
+				$.b(3)
+		]
+]
+####################################################################################################################
+
+@mThis[lparams][params]
+$params[^hash::create[$lparams]]
+$result[^eval($params.a * $params.b)]