Fossil SCM
Fix inaccurate error message.
Commit
0a94396ddfd9019178ae9c9971b8b06c25a62bc9
Parent
deb196f00a99791…
1 file changed
+1
-1
+1
-1
| --- src/th_tcl.c | ||
| +++ src/th_tcl.c | ||
| @@ -202,11 +202,11 @@ | ||
| 202 | 202 | return TH_ERROR; |
| 203 | 203 | } |
| 204 | 204 | /* NOTE: At this point, the Tcl API functions should be available. */ |
| 205 | 205 | if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.4", 0, (void *)&tclStubsPtr)==0 ){ |
| 206 | 206 | Th_ErrorMessage(interp, |
| 207 | - "could not create Tcl interpreter: incompatible version", | |
| 207 | + "could not initialize Tcl stubs: incompatible version", | |
| 208 | 208 | (const char *)"", 0); |
| 209 | 209 | return TH_ERROR; |
| 210 | 210 | } |
| 211 | 211 | return TH_OK; |
| 212 | 212 | } |
| 213 | 213 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -202,11 +202,11 @@ | |
| 202 | return TH_ERROR; |
| 203 | } |
| 204 | /* NOTE: At this point, the Tcl API functions should be available. */ |
| 205 | if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.4", 0, (void *)&tclStubsPtr)==0 ){ |
| 206 | Th_ErrorMessage(interp, |
| 207 | "could not create Tcl interpreter: incompatible version", |
| 208 | (const char *)"", 0); |
| 209 | return TH_ERROR; |
| 210 | } |
| 211 | return TH_OK; |
| 212 | } |
| 213 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -202,11 +202,11 @@ | |
| 202 | return TH_ERROR; |
| 203 | } |
| 204 | /* NOTE: At this point, the Tcl API functions should be available. */ |
| 205 | if( Tcl_PkgRequireEx(tclInterp, "Tcl", "8.4", 0, (void *)&tclStubsPtr)==0 ){ |
| 206 | Th_ErrorMessage(interp, |
| 207 | "could not initialize Tcl stubs: incompatible version", |
| 208 | (const char *)"", 0); |
| 209 | return TH_ERROR; |
| 210 | } |
| 211 | return TH_OK; |
| 212 | } |
| 213 |