--- gforth/fflib.fs 2008/09/18 02:42:24 1.26 +++ gforth/fflib.fs 2009/02/24 22:57:48 1.27 @@ -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 : revarg on ;