diff options
| author | davygrvy <davygrvy@noemail.net> | 2002-03-28 21:52:40 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@noemail.net> | 2002-03-28 21:52:40 (GMT) |
| commit | 67c534600ba0e27d95575a3f6b5f38f365305503 (patch) | |
| tree | 550369df48a83f01ad6bea8cfeb4509a5661406d /tools | |
| parent | 8afa3131b3cf0bfccd80aeaabeba54e592473a05 (diff) | |
| download | tcl-67c534600ba0e27d95575a3f6b5f38f365305503.zip tcl-67c534600ba0e27d95575a3f6b5f38f365305503.tar.gz tcl-67c534600ba0e27d95575a3f6b5f38f365305503.tar.bz2 | |
Opps... removed some left-over debugging code.
FossilOrigin-Name: 5e168c9758bf29b97bc3b195bba37df1b654b6e2
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/man2help.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/man2help.tcl b/tools/man2help.tcl index 9f3d7fe..7982e37 100644 --- a/tools/man2help.tcl +++ b/tools/man2help.tcl @@ -6,7 +6,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# RCS: @(#) $Id: man2help.tcl,v 1.10 2002/03/28 21:45:24 davygrvy Exp $ +# RCS: @(#) $Id: man2help.tcl,v 1.11 2002/03/28 21:52:41 davygrvy Exp $ # # @@ -117,8 +117,8 @@ set arg 0 if {![string compare [lindex $argv $arg] "-bitmap"]} { set bitmap [lindex $argv [incr arg]] } -puts [set baseName [lindex $argv [incr arg]]] -puts [set version [lindex $argv [incr arg]]] +set baseName [lindex $argv [incr arg]] +set version [lindex $argv [incr arg]] set files {} foreach i [lrange $argv [incr arg] end] { set i [file join $i] |