--- gforth/kernel/comp.fs	2004/08/26 15:50:44	1.64
+++ gforth/kernel/comp.fs	2004/08/27 15:53:51	1.65
@@ -263,12 +263,10 @@ has? peephole [IF]
 : !does    ( addr -- ) \ gforth	store-does
     latestxt does-code! ;
 
+\ !! unused, but ifdefed/gosted in some places
 : (does>)  ( R: addr -- )
     r> cfaligned /does-handler + !does ; \ !! no gforth-native
 
-: (does>1)  ( addr r:retaddr -- )
-    rdrop cfaligned /does-handler + !does ; \ !! no tail-call optimization
-
 : (does>2)  ( addr -- )
     cfaligned /does-handler + !does ;