From dc0a7162eafa10b09a028ce4a878366e4cc58d8c Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 24 Apr 2016 19:37:45 +1200
Subject: [PATCH] Exposed debug functions as forth words.

---
 src/forth.jl | 19 +++++++++++++++++++
 src/lib.fs   |  2 +-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/src/forth.jl b/src/forth.jl
index b1a78f3..ea849cd 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -1017,4 +1017,23 @@ function printRS()
     end
 end
 
+DOT = defPrimWord(".", () -> begin
+    print(popPS())
+    return NEXT
+end)
+
+DOTS = defPrimWord(".s", () -> begin
+    printPS()
+    return NEXT
+end)
+
+DUMP = defPrimWord("DUMP", () -> begin
+    count = popPS()
+    addr = popPS()
+
+    dump(addr, count=count)
+
+    return NEXT
+end)
+
 end
diff --git a/src/lib.fs b/src/lib.fs
index daaa80c..f4883c5 100644
--- a/src/lib.fs
+++ b/src/lib.fs
@@ -15,5 +15,5 @@
 
 : LITERAL IMMEDIATE ' LIT , , ;
 
-: ':' [ CHAR : ] ;
+: ':' [ CHAR : ] LITERAL ;
 
-- 
2.20.1