--- gforth/arch/misc/key.fs 1997/05/29 19:43:09 1.1 +++ gforth/arch/misc/key.fs 1998/12/11 22:54:29 1.2 @@ -1,7 +1,7 @@ \ misc-key.fs basic-io for misc processor 01feb97jaw -c: key? $ffff x@ 0<> ; +c: (key?) $ffff x@ 0<> ; c: (key) BEGIN key? UNTIL $fffe x@ ;