Fixed term colour bug.

[scheme.forth.jl.git] / term-colours.4th

diff --git a/term-colours.4th b/term-colours.4th
index 97582dc..1d87c8e 100644 (file)
--- a/term-colours.4th
+++ b/term-colours.4th
@@ -11,7 +11,7 @@
 ;
 
 : reset-term
-    escape [char] 0 escape-end
+    escape [char] 0 emit escape-end
 ;
 
 : bold
@@ -25,6 +25,7 @@ does>
     set-term-colour
 ;
 
+0 colour black
 1 colour red
 2 colour green
 3 colour yellow