![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to struct.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / compat|
Return to struct.fs CVS log | Up to [gforth] / gforth / compat |
| version 1.3, 1997/06/23 15:54:02 | version 1.4, 1997/07/31 16:17:23 |
|---|---|
| Line 66 does> ( name execution: -- ) | Line 66 does> ( name execution: -- ) |
| cell% 2* 2constant double% | cell% 2* 2constant double% |
| \ memory allocation words | \ memory allocation words |
| : %alignment ( align size -- align ) | |
| drop ; | |
| : %size ( align size -- size ) | |
| nip ; | |
| : %align ( align size -- ) | : %align ( align size -- ) |
| drop here swap nalign here - allot ; | drop here swap nalign here - allot ; |