Added UNUSED, made VM mem sizes more sensible.

[forth.jl.git] / src / lib.4th

diff --git a/src/lib.4th b/src/lib.4th
index 6b2d8ae..28aa451 100644 (file)
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -723,3 +723,8 @@
         2DROP           ( restore stack )
 ;
 
+
+( MEMORY  ------------------------------------------------------------------ )
+
+: UNUSED  ( -- cells )
+        MEMSIZE HERE @ - ;