Fixed bug of (free)

This commit is contained in:
Koichi Nakamura 2021-01-17 21:09:29 +09:00
parent 6050e60671
commit 17be0a6c89

View file

@ -2400,7 +2400,7 @@ BLOCK-SIZE remaining-size !
;
\ Bootstrapping version of free do nothing.
: (free) ( addr -- ) ;
: (free) ( addr -- ) drop ;
( === File I/O === )