Changeset 3943 for to-imperative


Ignore:
Timestamp:
Sep 18, 2008, 8:33:37 PM (12 years ago)
Author:
orlov
Message:
  • Backtrack calls.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_tpp.rf

    r3941 r3943  
    258258//      <? &Current-Func> : (e.name),
    259259      ('{' (('TExpr ex;') ('((Expr&)ex).init_str("Unexpected fail", 15);')
    260            ('std::cout << "$error: " << ex << endl;')
     260           ('std::cout << "$error: " << ex << std::endl;')
    261261           ('throw ex;')) '}');
    262262//T/      ('RF_FUNC_ERROR (unexpected_fail);');
     
    454454  ("CALL-FAILS" (CALL t.name (e.exprs) (e.ress))) =
    455455    <Concat <Intersperse (', ') <Replicate <Add <Length e.exprs> <Length e.ress>> ('TExpr&')>>> :: e.proto_args,
    456     '!RF_CALL (' <Name_To_CPP "DECL-FUNC" t.name CALL e.proto_args> ', '
     456    <Name_To_CPP "DECL-FUNC" t.name CALL e.proto_args> '('
    457457          <Args_To_CPP () Exprs e.exprs> ', '
    458458          <Args_To_CPP () Vars e.ress>   ')';
Note: See TracChangeset for help on using the changeset viewer.