--- gforth/extend.fs	1997/03/27 13:31:01	1.23
+++ gforth/extend.fs	1997/06/06 17:27:55	1.25
@@ -73,18 +73,10 @@ 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
-    ' compile, ; immediate
+    comp' drop compile, ; immediate
 
 \ MARKER                                                17may93jaw