--- gforth/extend.fs	1997/05/29 19:42:13	1.24
+++ gforth/extend.fs	1997/06/06 17:27:55	1.25
@@ -73,14 +73,6 @@ decimal
 : C" ( compilation "...<quote>" -- ; run-time  -- c-addr ) \ core-ext c-quote
     [char] " parse postpone CLiteral ; immediate restrict
 
-\ UNUSED                                                17may93jaw
-
-: dictionary-end ( -- addr )
-    forthstart dup 3 cells + @ + ;
-
-: unused ( -- u ) \ core-ext
-    dictionary-end here - ;
-
 \ [COMPILE]                                             17may93jaw
 
 : [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile