Subversion Repositories w11

# -*- tcl -*-
# $Id: .tclshrc 379 2011-04-22 20:56:19Z mueller $
#
if {[info exists env(RETROBASE)]} {
  lappend auto_path [file join $env(RETROBASE) tools tcl]
  lappend auto_path [file join $env(RETROBASE) tools lib]
}
#
if {$tcl_interactive} {
  package require tclreadline
  namespace eval tclreadline {
    proc prompt1 {} {
      set version [info tclversion]
      return "tclsh$version > "
    }
  }
  ::tclreadline::Loop
}