Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.10, 1994/07/08 15:00:51 | version 1.11, 1994/07/13 19:21:03 |
---|---|
Line 385 variable dead-code \ true if normal code | Line 385 variable dead-code \ true if normal code |
over 0<> | over 0<> |
while | while |
over | over |
cell+ name> >body @ max | name> >body @ max |
swap @ swap ( get next ) | swap @ swap ( get next ) |
repeat | repeat |
faligned nip ; | faligned nip ; |