Changeset 2498


Ignore:
Timestamp:
Feb 28, 2007, 3:12:42 AM (14 years ago)
Author:
orlov
Message:
  • Small improvements.
Location:
to-imperative/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/c++/rfp.in

    r2187 r2498  
    1818        if [ $status != 0 ]; then
    1919                echo "Command exited with status $status.  Aborting..."
    20                 exit
     20                exit -1
    2121        fi
    2222}
  • to-imperative/trunk/samples/check.rf

    r2317 r2498  
    11// $Id$
    22
    3 $use Box Compare Dir File StdIO System;
     3$use Arithm Box Compare Dir File StdIO System;
    44
    55$func Check s.failed s.passed e.path = s.failed s.passed;
     
    3333    <PrintLN s.e>,
    3434    {
    35       s.e : 0;
    36       <PrintLN "Command \""<Arg 1> " " e.fname <Arg 3>"\" exited with code "s.e>,
    37         <Exit 2>;
    38     },
    39     s.failed s.passed;
     35      s.e : 0 = s.failed <"+" s.passed 1>;
     36//      <PrintLN "Command \""<Arg 1> " " e.fname <Arg 3>"\" exited with code "s.e>,
     37        <"+" s.failed 1> s.passed;
     38    };
    4039  s.failed s.passed;
    4140};
Note: See TracChangeset for help on using the changeset viewer.