X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;ds=sidebyside;f=term-colours.4th;h=5c08a008433d92b8cd3c1cece6fe006933837b36;hb=2ab189727b2f1502367dae83dfaf931e3eab1684;hp=1d87c8e9d5eb8f2ef63092914a6c424b87710865;hpb=df09a13220069056957cef14b72402e81069ba72;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
 ;