X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=term-colours.4th;h=5c08a008433d92b8cd3c1cece6fe006933837b36;hb=24acc44c999a869d56c734b5e30fae16d6c516c6;hp=1d87c8e9d5eb8f2ef63092914a6c424b87710865;hpb=265928153dc137aef799ad21eaaaaa71103d6c91;p=scheme.forth.jl.git

diff --git a/term-colours.4th b/term-colours.4th
index 1d87c8e..5c08a00 100644
--- a/term-colours.4th
+++ b/term-colours.4th
@@ -14,6 +14,11 @@
     escape [char] 0 emit escape-end
 ;
 
+: clear-term
+    escape [char] 2 emit [char] J emit
+    escape [char] 0 emit [char] ; emit [char] 0 emit [char] f emit
+;
+
 : bold
     escape [char] 1 emit escape-end
 ;