[Emc-commit] master: haltcl.in: use simpler prompt

[Dewey G. <gi...@gi...>]

haltcl.in: use simpler prompt



http://git.linuxcnc.org/?p=emc2.git;a=commitdiff;h=2463ecd

---
 scripts/haltcl.in |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/scripts/haltcl.in b/scripts/haltcl.in
index cf535b0..8450fc0 100644
--- a/scripts/haltcl.in
+++ b/scripts/haltcl.in
@@ -40,6 +40,11 @@ foreach c [hal --commands] {
 
 if {[llength $argv] == 0} {
     package require tclreadline
+    namespace eval tclreadline {
+      proc prompt1 {} {
+        return "haltcl: "
+      }
+    }
     ::tclreadline::Loop
 }