Commit 56030670 authored by jwilke's avatar jwilke

deleted doubled definitions of (key) and (key?)

parent 85103950
......@@ -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]
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment