From 3ae415b513ab4230667e7ce3474ecadc9c6ca76b Mon Sep 17 00:00:00 2001
From: Brad Nelson <flagxor@gmail.com>
Date: Fri, 11 Feb 2022 20:45:57 -0800
Subject: [PATCH] Fix windows start to be delayed correctly.

---
 ueforth/common/ansi.fs    | 1 -
 ueforth/common/desktop.fs | 7 ++++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ueforth/common/ansi.fs b/ueforth/common/ansi.fs
index bdca015..98cce61 100644
--- a/ueforth/common/ansi.fs
+++ b/ueforth/common/ansi.fs
@@ -30,5 +30,4 @@ forth definitions ansi
 : at-xy ( x y -- ) esc ." [" 1+ n. ." ;" 1+ n. ." H" ;
 : page   esc ." [2J" esc ." [H" ;
 : set-title ( a n -- ) esc ." ]0;" type bel ;
-s" uEforth" set-title
 forth
diff --git a/ueforth/common/desktop.fs b/ueforth/common/desktop.fs
index 14009e1..0ee2dee 100644
--- a/ueforth/common/desktop.fs
+++ b/ueforth/common/desktop.fs
@@ -17,4 +17,9 @@ forth definitions internals
 : argc ( -- n ) 'argc @ ;
 : argv ( n -- a n ) cells 'argv @ + @ z>s ;
 
-forth
+internals definitions also ansi
+
+: boot-set-title   s" uEforth" set-title ;
+' boot-set-title boot-prompt !
+
+only forth definitions