[gforth] / gforth / kernel / args.fs  

gforth: gforth/kernel/args.fs

Diff for /gforth/kernel/args.fs between version 1.1 and 1.2

version 1.1, Wed May 21 20:40:13 1997 UTC version 1.2, Sun Aug 31 19:32:29 1997 UTC
Line 47 
Line 47 
         r> >tib +!  2 EXIT  THEN          r> >tib +!  2 EXIT  THEN
     ." Unknown option: " type cr 2drop 1 ;      ." Unknown option: " type cr 2drop 1 ;
   
 : process-args ( -- )  : (process-args) ( -- )
     true to script?      true to script?
     >tib @ >r      >tib @ >r
     argc @ 1      argc @ 1
Line 64 
Line 64 
     false to script?      false to script?
 ;  ;
   
   ' (process-args) IS process-args

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help