Merge branch 'devel'

tabemann · May 25, 2024 · 75b627f · 75b627f
2 parents 398ccc3 + 4836e0a
commit 75b627f
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/stm32f746/forth/erase.fs b/src/stm32f746/forth/erase.fs
@@ -136,6 +136,16 @@ commit-flash
   then
 ;
 
+\ Forget up to and including a word in RAM
+: forget ( "name" -- )
+  token-word dup ram-base >= over ram-end < and if
+    dup internal::next-word @ ram-latest! ram-here!
+    latest ram-base >= latest ram-end < and if ram-latest latest! then
+  else
+    drop
+  then
+;
+
 \ Ending compiling code in flash
 end-compress-flash
 

diff --git a/src/stm32l476/forth/erase.fs b/src/stm32l476/forth/erase.fs
@@ -100,6 +100,16 @@ commit-flash
   then
 ;
 
+\ Forget up to and including a word in RAM
+: forget ( "name" -- )
+  token-word dup ram-base >= over ram-end < and if
+    dup internal::next-word @ ram-latest! ram-here!
+    latest ram-base >= latest ram-end < and if ram-latest latest! then
+  else
+    drop
+  then
+;
+
 \ Ending compiling code in flash
 end-compress-flash