diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-04-04 13:46:33 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-04-04 13:46:33 (GMT) |
| commit | 1b99ae34f998f78b5c4068a33a1fe29f28d16755 (patch) | |
| tree | c32443f07883089073a81699730e7ff9fa4e68c7 /generic/tclScan.c | |
| parent | 749e8ceb5b9d6b1b59a8d16b578ec98017f01ad9 (diff) | |
| download | tcl-1b99ae34f998f78b5c4068a33a1fe29f28d16755.zip tcl-1b99ae34f998f78b5c4068a33a1fe29f28d16755.tar.gz tcl-1b99ae34f998f78b5c4068a33a1fe29f28d16755.tar.bz2 | |
Minor tinkering with style.
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 06e66e4..d21bfaf 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -1001,8 +1001,12 @@ Tcl_ScanObjCmd( continue; } result++; - /* In case of multiple errors in setting variables, just report - * the first one. */ + + /* + * In case of multiple errors in setting variables, just report + * the first one. + */ + if (Tcl_ObjSetVar2(interp, objv[i+3], NULL, objs[i], (code == TCL_OK) ? TCL_LEAVE_ERR_MSG : 0) == NULL) { code = TCL_ERROR; @@ -1050,7 +1054,7 @@ Tcl_ScanObjCmd( } return code; } - + /* * Local Variables: * mode: c |