diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-06 07:59:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-06 07:59:01 (GMT) |
commit | 276404432ecf07fa12997ae2aecf6cf8ef0f9714 (patch) | |
tree | 9726218d2767be111aba0feda74cd0ac220f4355 /generic/tclLoadNone.c | |
parent | 33bcb6e718ec30da522f10e0388743eafab975c7 (diff) | |
parent | 22298666ade7c7396ece86e2976309e955e9abd5 (diff) | |
download | tcl-276404432ecf07fa12997ae2aecf6cf8ef0f9714.zip tcl-276404432ecf07fa12997ae2aecf6cf8ef0f9714.tar.gz tcl-276404432ecf07fa12997ae2aecf6cf8ef0f9714.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclLoadNone.c')
-rw-r--r-- | generic/tclLoadNone.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclLoadNone.c b/generic/tclLoadNone.c index ac094e6..6b48aee 100644 --- a/generic/tclLoadNone.c +++ b/generic/tclLoadNone.c @@ -44,9 +44,9 @@ TclpDlopen( * function which should be used for this * file. */ { - Tcl_SetResult(interp, + Tcl_SetObjResult(interp, Tcl_NewStringObj( "dynamic loading is not currently available on this system", - TCL_STATIC); + -1)); return TCL_ERROR; } |