Fossil SCM
Corrected th1 lappend to persist its result, as reported in [forum:97f8815dd3ddd7df|forum post 97f8815dd3ddd7df].
Commit
cb531a541663ad095adfe5027ffd980f3f97235e54f68380df210dbbc7b449bc
Parent
7cd51fa341efbfd…
1 file changed
+1
+1
| --- src/th_lang.c | ||
| +++ src/th_lang.c | ||
| @@ -257,10 +257,11 @@ | ||
| 257 | 257 | |
| 258 | 258 | for(i=2; i<argc; i++){ |
| 259 | 259 | Th_ListAppend(interp, &zList, &nList, argv[i], argl[i]); |
| 260 | 260 | } |
| 261 | 261 | |
| 262 | + Th_SetVar(interp, argv[1], argl[1], zList, nList); | |
| 262 | 263 | Th_SetResult(interp, zList, nList); |
| 263 | 264 | Th_Free(interp, zList); |
| 264 | 265 | |
| 265 | 266 | return TH_OK; |
| 266 | 267 | } |
| 267 | 268 |
| --- src/th_lang.c | |
| +++ src/th_lang.c | |
| @@ -257,10 +257,11 @@ | |
| 257 | |
| 258 | for(i=2; i<argc; i++){ |
| 259 | Th_ListAppend(interp, &zList, &nList, argv[i], argl[i]); |
| 260 | } |
| 261 | |
| 262 | Th_SetResult(interp, zList, nList); |
| 263 | Th_Free(interp, zList); |
| 264 | |
| 265 | return TH_OK; |
| 266 | } |
| 267 |
| --- src/th_lang.c | |
| +++ src/th_lang.c | |
| @@ -257,10 +257,11 @@ | |
| 257 | |
| 258 | for(i=2; i<argc; i++){ |
| 259 | Th_ListAppend(interp, &zList, &nList, argv[i], argl[i]); |
| 260 | } |
| 261 | |
| 262 | Th_SetVar(interp, argv[1], argl[1], zList, nList); |
| 263 | Th_SetResult(interp, zList, nList); |
| 264 | Th_Free(interp, zList); |
| 265 | |
| 266 | return TH_OK; |
| 267 | } |
| 268 |