--- gforth/oldlib.fs 2005/11/20 23:15:42 1.3 +++ gforth/oldlib.fs 2007/12/31 17:34:58 1.6 @@ -1,6 +1,6 @@ \ lib.fs shared library support package 11may97py -\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2007 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -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