Added .tasks

2021-05-09 16:36:01 -07:00
parent b6ecb6db1a
commit 7789b4e182
1 changed files with 2 additions and 0 deletions
--- a/ueforth/common/tasks.fs
+++ b/ueforth/common/tasks.fs
@ -31,6 +31,8 @@ forth definitions tasks also internals
   then
 ;

+: .tasks   task-list @ begin dup 2 cells - see. @ dup task-list @ = until drop ;
+
 DEFINED? ms-ticks [IF]
  : ms ( n -- ) ms-ticks >r begin pause ms-ticks r@ - over >= until rdrop drop ;
 [THEN]