--- gforth/compat/struct.fs 1998/04/14 16:43:21 1.5 +++ gforth/compat/struct.fs 1999/02/22 21:39:43 1.6 @@ -23,9 +23,11 @@ \ from MEMORY : \ allocate -: nalign ( addr1 n -- addr2 ) -\ addr2 is the aligned version of addr1 wrt the alignment size n - 1- tuck + swap invert and ; +: naligned ( addr1 n -- addr2 ) + \ addr2 is the aligned version of addr1 wrt the alignment size n + 1- tuck + swap invert and ; + +: nalign naligned ; \ old name, obsolete : dofield ( -- ) does> ( name execution: addr1 -- addr2 )