--- gforth/fflib.fs	2008/09/18 02:42:24	1.26
+++ gforth/fflib.fs	2009/12/31 15:32:35	1.29
@@ -1,6 +1,6 @@
 \ lib.fs	shared library support package 		16aug03py
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008,2009 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -43,7 +43,7 @@ s" callback" add-lib
 \c   void **gforth_pointers = saved_gforth_pointers;
 \c #endif
 \c   {
-\c     /* save global valiables */
+\c     /* save global variables */
 \c     Cell *rp = gforth_RP;
 \c     Cell *sp = gforth_SP;
 \c     Float *fp = gforth_FP;
@@ -258,6 +258,10 @@ DOES> ( -- )  dup thislib ! proc: ;
   DOES>  decl, ind-call @ 0= IF  symbol,  THEN
     previous revarg off ind-call off ;
 
+: func@ >body cell+ @ ;
+: func' ' func@ ;
+: [func'] postpone ['] postpone func@ ; immediate restrict
+
 also c-decl definitions
 
 : <rev>  revarg on ;