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 | 6965ff95a63177a766b1be29435d3cf3592f593b (patch) | |
| tree | c32443f07883089073a81699730e7ff9fa4e68c7 /generic/tclScan.c | |
| parent | 25e4dca4916e5ae7be29bb21c40e59f3adb4b5ec (diff) | |
| download | tcl-6965ff95a63177a766b1be29435d3cf3592f593b.zip tcl-6965ff95a63177a766b1be29435d3cf3592f593b.tar.gz tcl-6965ff95a63177a766b1be29435d3cf3592f593b.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 |