fixed a bug

This commit is contained in:
Koichi Nakamura 2021-12-04 20:53:22 +09:00
parent bfd136f0ed
commit a28cbc259f

View file

@ -2401,7 +2401,7 @@ BLOCK-SIZE remaining-size !
dup remaining-size @ <= if
( u addr )
next-addr @
swap dup next-addr +! remaining-size -!
swap aligned dup next-addr +! remaining-size -!
else
drop -1
then