Show
Ignore:
Timestamp:
05/22/08 03:58:04 (7 months ago)
Author:
pmoura
Message:

Fixed a Logtalk compiler bug when compiling a class that imports a category that extends other categories. Thanks to Victor Noel for the bug report.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/compiler/logtalk.pl

    r4233 r4269  
    98229822    '$lgt_pp_rclause_'('$lgt_imports_category_'(Obj, Ctg, _)),      % needed for parameter passing 
    98239823    '$lgt_pp_imported_category_'(Ctg, _, _, CDef, _), 
    9824     Lookup =.. [CDef, Pred, Sender, Obj, Self, Call], 
     9824    Lookup =.. [CDef, Pred, Sender, Obj, Self, Call, Ctn], 
    98259825    (   '$lgt_pp_alias_'(Ctg, _, _) -> 
    9826         Head =.. [OIDef, Alias, Sender, Obj, Self, Call, Ctg], 
     9826        Head =.. [OIDef, Alias, Sender, Obj, Self, Call, Ctn], 
    98279827        Rename =.. [PRnm, Ctg, Pred, Alias], 
    98289828        assertz('$lgt_pp_fdef_'((Head :- var(Alias) -> Lookup, Rename; Rename, Lookup))) 
    9829     ;   Head =.. [OIDef, Pred, Sender, Obj, Self, Call, Ctg], 
     9829    ;   Head =.. [OIDef, Pred, Sender, Obj, Self, Call, Ctn], 
    98309830        assertz('$lgt_pp_fdef_'((Head:-Lookup))) 
    98319831    ),