* doc/load.n: Backport corrected example.

FossilOrigin-Name: a60ff8b20d5be5d09e90d396997ccea4dc7f0b39

1 files changed, 4 insertions, 4 deletions

diff --git a/doc/load.n b/doc/load.n
index ea5c7f3..86149b2 100644
--- a/doc/load.n
+++ b/doc/load.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: load.n,v 1.7.2.1 2004/10/27 12:52:40 dkf Exp $
+'\" RCS: @(#) $Id: load.n,v 1.7.2.2 2007/09/20 16:24:46 dgp Exp $
 '\" 
 .so man.macros
 .TH load n 7.5 Tcl "Tcl Built-In Commands"
@@ -132,7 +132,7 @@ The following is a minimal extension:
 #include <tcl.h>
 #include <stdio.h>
 static int fooCmd(ClientData clientData,
-        Tcl_Interp *interp, int objc, char * CONST objv[]) {
+        Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
     printf("called with %d arguments\\n", objc);
     return TCL_OK;
 }
@@ -154,10 +154,10 @@ it can then be loaded into Tcl with the following:
 # Load the extension
 switch $tcl_platform(platform) {
    windows {
-      \fBload\fR ./foo.dll
+      \fBload\fR [file join [pwd] foo.dll]
    }
    unix {
-      \fBload\fR ./libfoo[info sharedlibextension]
+      \fBload\fR [file join [pwd] libfoo[info sharedlibextension]]
    }
 }