![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fflib.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to fflib.fs CVS log | Up to [gforth] / gforth |
| version 1.26, 2008/09/18 02:42:24 | version 1.27, 2009/02/24 22:57:48 |
|---|---|
| Line 258 DOES> ( -- ) dup thislib ! proc: ; | Line 258 DOES> ( -- ) dup thislib ! proc: ; |
| DOES> decl, ind-call @ 0= IF symbol, THEN | DOES> decl, ind-call @ 0= IF symbol, THEN |
| previous revarg off ind-call off ; | previous revarg off ind-call off ; |
| : func@ >body cell+ @ ; | |
| : func' ' func@ ; | |
| : [func'] postpone ['] postpone func@ ; immediate restrict | |
| also c-decl definitions | also c-decl definitions |
| : <rev> revarg on ; | : <rev> revarg on ; |