--- gforth/libffi.fs	2008/09/18 02:42:24	1.30
+++ gforth/libffi.fs	2009/02/24 22:34:35	1.31
@@ -231,6 +231,10 @@ DOES> ( -- )  dup thislib ! proc: ;
     here thisproc @ 2 cells + ! parse-name s,
     thislib @ thisproc @ @proc ;
 
+: func@ >body cell+ @ ;
+: func' ' func@ ;
+: [func'] postpone ['] postpone func@ ; immediate restrict
+
 \ stuff for libffi
 
 \ libffi uses a parameter array for the input