--- gforth/extend.fs	1997/03/19 18:27:12	1.22
+++ gforth/extend.fs	1997/06/06 17:27:55	1.25
@@ -73,15 +73,10 @@ decimal
 : C" ( compilation "...<quote>" -- ; run-time  -- c-addr ) \ core-ext c-quote
     [char] " parse postpone CLiteral ; immediate restrict
 
-\ UNUSED                                                17may93jaw
-
-: unused ( -- u ) \ core-ext
-    forthstart dup 3 cells + @ + here - ;
-
 \ [COMPILE]                                             17may93jaw
 
 : [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile
-    ' compile, ; immediate
+    comp' drop compile, ; immediate
 
 \ MARKER                                                17may93jaw