diff options
| author | dkf <dkf@noemail.net> | 2011-04-04 13:46:33 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2011-04-04 13:46:33 (GMT) |
| commit | 79ca3c021981ed15d9e263c10c2df4cc2ff1dad7 (patch) | |
| tree | c32443f07883089073a81699730e7ff9fa4e68c7 /generic/tclScan.c | |
| parent | d57b105d70bd7825ca19a8cafff3bc80da498820 (diff) | |
| download | tcl-79ca3c021981ed15d9e263c10c2df4cc2ff1dad7.zip tcl-79ca3c021981ed15d9e263c10c2df4cc2ff1dad7.tar.gz tcl-79ca3c021981ed15d9e263c10c2df4cc2ff1dad7.tar.bz2 | |
Minor tinkering with style.
FossilOrigin-Name: ad00613d3e95471baaf89f418d02473bd3231a1a
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 |