diff options
Diffstat (limited to 'doc/info.n')
| -rw-r--r-- | doc/info.n | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -7,7 +7,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: info.n,v 1.12 2004/10/25 22:03:31 dkf Exp $ +'\" RCS: @(#) $Id: info.n,v 1.13 2004/10/27 12:53:22 dkf Exp $ '\" .so man.macros .TH info n 8.4 Tcl "Tcl Built-In Commands" @@ -214,8 +214,8 @@ script: proc printProc {procName} { set result [list proc $procName] set formals {} - foreach var [info args $procName] { - if {[info default $procName $var def]} { + foreach var [\fBinfo\fR args $procName] { + if {[\fBinfo\fR default $procName $var def]} { lappend formals [list $var $def] } else { # Still need the list-quoting because variable @@ -223,7 +223,7 @@ proc printProc {procName} { lappend formals [list $var] } } - puts [lappend result $formals [info body $procName]] + puts [lappend result $formals [\fBinfo\fR body $procName]] } .CE |