[gforth] / gforth / tasker.fs  

gforth: gforth/tasker.fs

Diff for /gforth/tasker.fs between version 1.1 and 1.2

version 1.1, Sun Mar 31 20:16:04 1996 UTC version 1.2, Tue May 7 16:15:23 1996 UTC
Line 55 
Line 55 
 : activate ( task -- )  0 swap (pass) ;  : activate ( task -- )  0 swap (pass) ;
 : pass ( x1 .. xn n task -- )  (pass) ;  : pass ( x1 .. xn n task -- )  (pass) ;
   
 : task-key   BEGIN  pause key?  UNTIL  (key) ;  : single-tasking? ( -- flag )
       next-task dup @ = ;
   
   : task-key   BEGIN  pause key? single-tasking? or  UNTIL  (key) ;
 : task-emit  (emit) pause ;  : task-emit  (emit) pause ;
 : task-type  (type) pause ;  : task-type  (type) pause ;
   

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