--- gforth/kernel/vars.fs 1997/07/06 13:40:50 1.3 +++ gforth/kernel/vars.fs 1998/11/21 20:24:16 1.5 @@ -55,7 +55,7 @@ Create main-task 100 cells allot main-task UNLOCK tup ! LOCK -Variable udp \ used by dovar:, must be variable +Variable udp AUser next-task main-task next-task ! AUser prev-task main-task prev-task ! @@ -63,7 +63,7 @@ AUser save-task 0 save-task ! AUser sp0 \ used by douser:, must be user ' sp0 Alias s0 AUser rp0 ' rp0 Alias r0 -AUser fp0 ' fp0 Alias f0 +AUser fp0 \ no f0, because this leads to unexpected results AUser lp0 ' lp0 Alias l0 AUser handler \ pointer to last throw frame \ AUser output