--- gforth/glocals.fs	2012/01/16 22:17:32	1.64
+++ gforth/glocals.fs	2012/02/07 16:48:55	1.65
@@ -88,10 +88,6 @@ require search.fs
 require float.fs
 require extend.fs \ for case
 
-: save-mem-dict ( addr1 u -- addr2 u )
-    here swap dup allot ( addr1 addr2 u )
-    2dup 2>r move 2r> ;
-
 : compile-@local ( n -- ) \ gforth compile-fetch-local
  case
     0       of postpone @local0 endof