Ignore:
Timestamp:
May 11, 2011, 1:26:11 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: refactor Lisp spaces so that they are real objects, and get rid
of the unused USER_SPACE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/chars.cpp

    r555 r635  
    113113    num=ts;
    114114    if (num<MAX_STATE) num=MAX_STATE;
    115     int sp=current_space;
    116     current_space=PERM_SPACE;
     115    LSpace *sp = LSpace::Current;
     116    LSpace::Current = &LSpace::Perm;
    117117    ((LSymbol *)symbol)->SetNumber(num);
    118     current_space=sp;
     118    LSpace::Current=sp;
    119119  }
    120120
     
    268268
    269269    /* create the var and add to var list */
    270     int sp=current_space;
    271     current_space=PERM_SPACE;
     270    LSpace *sp = LSpace::Current;
     271    LSpace::Current = &LSpace::Perm;
    272272
    273273    add_c_object(symbol,free_index);
     
    276276    var_index[free_index]=tv;
    277277    tv++;
    278     current_space=sp;
     278    LSpace::Current=sp;
    279279  }
    280280}
Note: See TracChangeset for help on using the changeset viewer.