|
|
| version 1.11, 2004/02/26 14:37:31 | version 1.80, 2005/01/20 14:10:29 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| $file[^file::load[text;_bug.p]] | ^first[] |
| ^process[$self]{$file.text}[ | ^if(def $error){ |
| $.file[$file.name] | ^if(^error.pos[koshmar]>=0){ |
| $.lineno(-1) | $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 | |
| } | |
| } | |