/[gcl]/gcl/o/package.d
ViewVC logotype

Diff of /gcl/o/package.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by camm, Fri Oct 25 02:41:49 2002 UTC revision 1.15 by camm, Mon Feb 10 17:22:04 2003 UTC
# Line 718  delete_package(object n) { Line 718  delete_package(object n) {
718                    
719          FEpackage_error((object)p,"Package used by other packages.");          FEpackage_error((object)p,"Package used by other packages.");
720          for (t=p->p_usedbylist;!endp(t);t=t->c.c_cdr)          for (t=p->p_usedbylist;!endp(t);t=t->c.c_cdr)
721            unuse_package(p,t->c.c_car);            unuse_package((object)p,t->c.c_car);
722        }        }
723    
724        if (p->p_uselist!=Cnil) {        if (p->p_uselist!=Cnil) {
725          for (t=p->p_uselist;!endp(t);t=t->c.c_cdr)          for (t=p->p_uselist;!endp(t);t=t->c.c_cdr)
726            unuse_package(t->c.c_car,p);            unuse_package(t->c.c_car,(object)p);
727        }        }
728    
729        p->p_name=Cnil;        p->p_name=Cnil;

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26