memory-check:toolbelt — ordinary primitive
FORTH
MEMORY-CHECK ( n -- )();p4:"memory-check";
MEMORY-CHECK ( n -- )(
)
Check for memory allocation error.
\ : MEMORY-CHECK ( n -- ) THROW ; : MEMORY-CHECK ( n -- ) ABORT" Memory Allocation Error " ;