--- parser3/www/htdocs/Attic/_bug.html 2005/01/20 14:10:29 1.80 +++ parser3/www/htdocs/Attic/_bug.html 2005/11/21 15:08:45 1.101 @@ -1,29 +1,6 @@ -@main[] -^first[] -^if(def $error){ - ^if(^error.pos[koshmar]>=0){ - $error, TODO:recover - }{ - $error, TODO:die - } -} -@first[] -^second[] -^if(!def $error){ - working1 -} -@second[] -^if(^math:random(2)){ - $error[koshmar,test1] -} -^if(!def $error){ - working2 - - ^if(^math:random(2)){ - $error[uzhas,test2] - } - ^if(!def $error){ - working3 - } -} +@USE +/child.p +@main[] +$child[^child::create[]] +^child.procedure[]