--- gforth/kernel/io.fs	1999/03/29 22:52:34	1.10
+++ gforth/kernel/io.fs	1999/05/05 12:07:11	1.11
@@ -59,8 +59,6 @@ Defer emit ( c -- ) \ core
 
 Defer key ( -- char ) \ core
 \G Receive (but do not display) one character, @var{char}.
-: (key) ( -- c ) \ gforth
-    0 key-file ;
 
 [IFDEF] (key) ' (key) IS key [THEN]
 
@@ -70,8 +68,6 @@ Defer key? ( -- flag ) \ facility
 \G yield the character. Once @code{key?} returns true, subsequent
 \G calls to @code{key?} without calling @code{key} or @code{ekey} will
 \G also return true.
-: (key?) ( -- flag ) \ gforth
-    0 key?-file ;
 
 [IFDEF] (key?) ' (key?) IS key? [THEN]