Diff for /gforth/Attic/kernal.fs between versions 1.33 and 1.34

version 1.33, 1995/03/14 19:01:43 version 1.34, 1995/04/14 18:56:55
Line 1464  Variable argc Line 1464  Variable argc
         r> >tib +!  2 EXIT  THEN          r> >tib +!  2 EXIT  THEN
     ." Unknown option: " type cr 2drop 1 ;      ." Unknown option: " type cr 2drop 1 ;
   
 : process-args ( -- )  >tib @ >r  : process-args ( -- )
       >tib @ >r
       true to script?
     argc @ 1      argc @ 1
     ?DO      ?DO
         I arg over c@ [char] - <>          I arg over c@ [char] - <>
         IF          IF
             true to script? included  false to script? 1              included 1
         ELSE          ELSE
             I 1+ arg  do-option              I 1+ arg  do-option
         THEN          THEN
     +LOOP      +LOOP
       false to script?
     r> >tib ! ;      r> >tib ! ;
   
 Defer 'cold ' noop IS 'cold  Defer 'cold ' noop IS 'cold

Removed from v.1.33  
changed lines
  Added in v.1.34


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