--- gforth/oldlib.fs 2005/12/31 15:46:09 1.4 +++ gforth/oldlib.fs 2007/10/03 17:03:10 1.5 @@ -42,13 +42,13 @@ Variable legacy legacy off cell+ tuck 2 cells + count rot cell+ @ lib-sym dup 0= abort" Proc not found!" swap cell+ ! ; --1 Constant (addr) - 0 Constant (int) - 1 Constant (float) - 2 Constant (void) - 4 Constant (int...) - 5 Constant (float...) - 6 Constant (void...) +-1 Constant + 0 Constant + 1 Constant + 2 Constant + 4 Constant + 5 Constant + 6 Constant : proc, ( pars type lib addr -- ) \G allocates and initializes proc stub