Changeset 905


Ignore:
Timestamp:
Jun 30, 2003, 9:20:20 PM (18 years ago)
Author:
luba
Message:
  • Class library functions
Location:
to-imperative/trunk/library/Class
Files:
10 added
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/Class/box_q_.cc

    r892 r905  
    1616
    1717RF_FUNC (Box_q_, (RF_ARG e_Exp), ())
    18   Term* p = e_Exp.get_first();
    19   if (p->is_sym()) {
    20     rftype::Box* b = p->cast_to<rftype::Box>(type_box);
    21     if (!b)
     18  if (e_Exp.get_len() == 1) {
     19    Term* p = e_Exp.get_first();
     20    if (p->get_type() != type_box)
    2221      retfail;
    2322  }
Note: See TracChangeset for help on using the changeset viewer.