Added FORGET

ueforth/common/utils.fs

@@ -10,3 +10,4 @@ forth definitions also internals
 : .s   ." <" depth n. ." > " raw.s cr ;
 only forth definitions
 
+: forget ( "name" ) ' dup >link current @ !  >name drop here - allot ;

ueforth/common/utils_tests.fs

@@ -13,3 +13,16 @@ e: test-.s
   .s
   out: <0> 
 ;e
+
+e: test-forget
+  context @ @
+  current @
+  here
+  : foo 123 ;
+  : bar foo foo ;
+  : baz bar bar * * ;
+  forget foo
+  here = assert
+  current @ = assert
+  context @ @ = assert
+;e