summaryrefslogtreecommitdiffstats
path: root/doc/info.n
diff options
context:
space:
mode:
Diffstat (limited to 'doc/info.n')
-rw-r--r--doc/info.n8
1 files changed, 4 insertions, 4 deletions
diff --git a/doc/info.n b/doc/info.n
index bfa1036..cc57cf5 100644
--- a/doc/info.n
+++ b/doc/info.n
@@ -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