* doc/load.n: Backport corrected example.

2 files changed, 9 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index e1faa6a..e0b4997 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,11 @@
-2007-09-19  Don Porter  <dgp@users.sourceforge.net>
+2007-09-20  Don Porter  <dgp@users.sourceforge.net>
 
 	*** 8.4.16 TAGGED FOR RELEASE ***
 
+	* doc/load.n:	Backport corrected example.
+
+2007-09-19  Don Porter  <dgp@users.sourceforge.net>
+
 	* unix/Makefile.in:     Update `make dist` so that tclDTrace.d is
 	included in the source code distribution.
 
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]]
    }
 }