summaryrefslogtreecommitdiffstats
path: root/generic/tclScan.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-04-04 13:46:33 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-04-04 13:46:33 (GMT)
commit6965ff95a63177a766b1be29435d3cf3592f593b (patch)
treec32443f07883089073a81699730e7ff9fa4e68c7 /generic/tclScan.c
parent25e4dca4916e5ae7be29bb21c40e59f3adb4b5ec (diff)
downloadtcl-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.c10
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