--- gforth/ekey.fs	2002/06/02 10:31:28	1.6
+++ gforth/ekey.fs	2003/03/09 15:16:47	1.8
@@ -1,6 +1,6 @@
 \ ekey etc.
 
-\ Copyright (C) 1999 Free Software Foundation, Inc.
+\ Copyright (C) 1999,2002 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -211,37 +211,39 @@ set-current
 : ekey>char ( u -- u false | c true ) \ facility-ext e-key-to-char
     dup 256 u< ;
 
-: esc? ( -- flag ) recursive
-    key? 0=
-    if
-	false exit
-    then
-    key ekey-buffered char-append-buffer
-    ekey-buffered 2@ esc-sequences search-wordlist
-    if
-	['] esc-prefix =
-	if
-	    esc? exit
-	then
-    then
-    true ;
+' key? alias ekey? ( -- flag )
 
-: ekey? ( -- flag ) \ facility-ext e-key-question
-    \G Return @code{true} if a keyboard event is available (use
-    \G @code{ekey} to receive the event), @code{false} otherwise.
-    key?
-    if
-	key dup #esc =
-	if
-	    clear-ekey-buffer esc?
-	    ekey-buffered 2@ unkeys
-	else
-	    true
-	then
-	swap unkey
-    else
-	false
-    then ;
+\  : esc? ( -- flag ) recursive
+\      key? 0=
+\      if
+\  	false exit
+\      then
+\      key ekey-buffered char-append-buffer
+\      ekey-buffered 2@ esc-sequences search-wordlist
+\      if
+\  	['] esc-prefix =
+\  	if
+\  	    esc? exit
+\  	then
+\      then
+\      true ;
+
+\  : ekey? ( -- flag ) \ facility-ext e-key-question
+\      \G Return @code{true} if a keyboard event is available (use
+\      \G @code{ekey} to receive the event), @code{false} otherwise.
+\      key?
+\      if
+\  	key dup #esc =
+\  	if
+\  	    clear-ekey-buffer esc?
+\  	    ekey-buffered 2@ unkeys
+\  	else
+\  	    true
+\  	then
+\  	swap unkey
+\      else
+\  	false
+\      then ;
 
 \ : test-ekey?
 \     begin