From 6965ff95a63177a766b1be29435d3cf3592f593b Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 4 Apr 2011 13:46:33 +0000 Subject: Minor tinkering with style. --- generic/tclScan.c | 10 +++++++--- 1 file 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 -- cgit v0.12