From f3f77474664434c1330f74494463ea34ce148ff4 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Thu, 26 May 2016 22:02:39 +1200
Subject: [PATCH] Added workable KEY.

---
 src/forth.jl | 13 +++++++++++++
 src/lib.4th  |  2 +-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/src/forth.jl b/src/forth.jl
index 6436f79..04771ea 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -620,6 +620,19 @@ EMIT = defPrimWord("EMIT", () -> begin
     return NEXT
 end)
 
+function raw_mode!(mode::Bool)
+    if ccall(:jl_tty_set_mode, Int32, (Ptr{Void}, Int32), STDIN.handle, mode) != 0
+        throw("FATAL: Terminal unable to enter raw mode.")
+    end
+end
+
+KEY = defPrimWord("KEY", () -> begin
+    raw_mode!(true)
+    pushPS(Int(readbytes(STDIN, 1)[1]))
+    raw_mode!(false)
+    return NEXT
+end)
+
 SPAN, SPAN_CFA = defNewVar("SPAN", 0)
 EXPECT = defPrimWord("EXPECT", () -> begin
     maxLen = popPS()
diff --git a/src/lib.4th b/src/lib.4th
index d599036..664ff80 100644
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -741,7 +741,7 @@ DOES>   @
 
 : HIDE
         BL WORD FIND DROP >NAME
-        DUP F_HIDDEN OR SWAP !
+        DUP @ F_HIDDEN OR SWAP !
 ;
 
 ( MEMORY  ------------------------------------------------------------------ )
-- 
2.20.1