Parent Directory | Revision Log | Patch
revision 1.7 by camm, Tue Sep 24 19:01:45 2002 UTC | revision 1.8 by camm, Sun Oct 6 03:59:40 2002 UTC | |
---|---|---|
# | Line 608 object s, p; | Line 608 object s, p; |
608 | object *ip; | object *ip; |
609 | ||
610 | find_symbol(s, p); | find_symbol(s, p); |
611 | if (intern_flag == INTERNAL || intern_flag == EXTERNAL) | if (intern_flag == INTERNAL || intern_flag == EXTERNAL) { |
612 | p->p.p_shadowings = make_cons(s, p->p.p_shadowings); | |
613 | return; | return; |
614 | } | |
615 | j = pack_hash(s); | j = pack_hash(s); |
616 | ip = &P_INTERNAL(p ,j); | ip = &P_INTERNAL(p ,j); |
617 | vs_push(make_symbol(s)); | vs_push(make_symbol(s)); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |