Changeset 2bb771 in git


Ignore:
Timestamp:
Sep 22, 1999, 5:12:15 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
3b295e0e5a724fbea605a4927fdcc6ed70b0b3e9
Parents:
560432aa8601a1f4136751b1d867f6c21d03d06e
Message:
*hannes: iiCleanupProcs


git-svn-id: file:///usr/local/Singular/svn/trunk@3648 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/iplib.cc

    r560432 r2bb771  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iplib.cc,v 1.63 1999-09-22 14:58:36 obachman Exp $ */
     4/* $Id: iplib.cc,v 1.64 1999-09-22 15:12:15 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: LIB and help
    … …  
    790790static void iiCleanProcs(idhdl &root)
    791791{
     792  idhdl prev=NULL;
    792793  loop
    793794  {
    … …  
    802803        // - no proc body can start at the beginning of the file
    803804        killhdl(root);
     805        if (prev==NULL)
     806          root=idroot;
     807        else
     808        {
     809          root=prev;
     810          prev=NULL;
     811        }
     812        continue;
    804813      }
    805       continue;
    806     }
     814    }
     815    prev=root;
    807816    root=IDNEXT(root);
    808817  }
    … …  
    844853    reinit_yylp();
    845854    fclose( yylpin );
    846 #ifdef HAVE_NAMESPACES
     855#ifndef HAVE_NAMESPACES
    847856    iiCleanProcs(idroot);
    848857#endif /* HAVE_NAMESPACES */
Note: See TracChangeset for help on using the changeset viewer.