Changeset 947


Ignore:
Timestamp:
Jul 3, 2003, 3:12:49 AM (18 years ago)
Author:
orlov
Message:
  • Implementation has been simplified a little bit.
Location:
to-imperative/trunk/library/Compare
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • to-imperative/trunk/library/Compare/gt_eq.cc

    r928 r947  
    1717RF_FUNC (_gt__eq_, (RF_ARG e_Exp1, e_Exp2), ())
    1818
    19   if (Expr::compare(e_Exp1, e_Exp2) != 0)
    20     if (Expr::compare(e_Exp1, e_Exp2) != 1)
    21       retfail;
     19  if (Expr::compare(e_Exp1, e_Exp2) == -1)
     20    retfail;
    2221
    2322RF_END

  • to-imperative/trunk/library/Compare/lt_eq.cc

    r928 r947  
    1717RF_FUNC (_lt__eq_, (RF_ARG e_Exp1, e_Exp2), ())
    1818
    19   if (Expr::compare(e_Exp1, e_Exp2) != 0)
    20     if (Expr::compare(e_Exp1, e_Exp2) != -1)
    21       retfail;
     19  if (Expr::compare(e_Exp1, e_Exp2) == 1)
     20    retfail;
    2221
    2322RF_END
Note: See TracChangeset for help on using the changeset viewer.