Diff for /gforth/prim between versions 1.89 and 1.90

version 1.89, 2002/01/05 20:16:17 version 1.90, 2002/01/05 22:58:59
Line 2427  does-exec ( #a_cfa -- R:nest a_pfa ) new Line 2427  does-exec ( #a_cfa -- R:nest a_pfa ) new
 a_pfa = PFA(a_cfa);  a_pfa = PFA(a_cfa);
 nest = (Cell)ip;  nest = (Cell)ip;
 IF_spTOS(spTOS = sp[0]);  IF_spTOS(spTOS = sp[0]);
 SUPER_END;  #ifdef DEBUG
       {
         CFA_TO_NAME(a_cfa);
         fprintf(stderr,"%08lx: does %08lx %.*s\n",
                 (Cell)ip,(Cell)a_cfa,len,name);
       }
   #endif
 SET_IP(DOES_CODE1(a_cfa));  SET_IP(DOES_CODE1(a_cfa));
 SUPER_END;  
   
 include(peeprules.vmg)  include(peeprules.vmg)
   

Removed from v.1.89  
changed lines
  Added in v.1.90


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>