Diff for /gforth/tasker.fs between versions 1.2 and 1.3

version 1.2, 1996/05/07 16:15:23 version 1.3, 1996/05/13 16:37:03
Line 24  Create sleepers  sleepers A, sleepers A, Line 24  Create sleepers  sleepers A, sleepers A,
   
 \ USER' computes the task offset  \ USER' computes the task offset
 : user' ( 'user' -- n )  : user' ( 'user' -- n )
   ' >body @ state @ IF  postpone Literal  THEN ; immediate      ' >body @ postpone literal ; immediate
   interpretation:
       ' >body @ ;
   
 \ NEWTASK creates a new, sleeping task  \ NEWTASK creates a new, sleeping task
 : NewTask ( n -- Task )  dup 2* 2* udp @ + dup  : NewTask ( n -- Task )  dup 2* 2* udp @ + dup

Removed from v.1.2  
changed lines
  Added in v.1.3


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