From ad2ff95ba8c9da2c069721644be9afd430a123a9 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sat, 17 Jan 2004 00:38:56 +0000
Subject: Minor fixes and update of UNIX documentation installer

---
 generic/tclCmdIL.c | 3 ++-
 tests/cmdIL.test   | 8 ++++----
 unix/mkLinks       | 4 ++++
 3 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index e570d56..4eee06b 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdIL.c,v 1.59 2004/01/17 00:28:08 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.60 2004/01/17 00:38:56 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -2054,6 +2054,7 @@ Tcl_LassignObjCmd(dummy, interp, objc, objv)
 				 * run out of values from the list object. */
     Tcl_Obj **listObjv;		/* The contents of the list. */
     int listObjc;		/* The length of the list. */
+    int i;
 
     if (objc < 3) {
 	Tcl_WrongNumArgs(interp, 1, objv, "list varname ?varname ...?");
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index 94dd24f..59e17c0 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: cmdIL.test,v 1.19 2004/01/17 00:28:08 dkf Exp $
+# RCS: @(#) $Id: cmdIL.test,v 1.20 2004/01/17 00:38:57 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -422,10 +422,10 @@ test cmdIL-5.5 {lsort with list style index and sharing} -body {
 
 test cmdIL-6.1 {lassign command syntax} -body {
     lassign
-} -code 1 -result {wrong # args: should be "lassign list varname ?varname ...?"}
+} -returnCodes 1 -result {wrong # args: should be "lassign list varname ?varname ...?"}
 test cmdIL-6.2 {lassign command syntax} -body {
     lassign x
-} -code 1 -result {wrong # args: should be "lassign list varname ?varname ...?"}
+} -returnCodes 1 -result {wrong # args: should be "lassign list varname ?varname ...?"}
 test cmdIL-6.3 {lassign command} {
     set x FAIL
     list [lassign a x] $x
@@ -462,7 +462,7 @@ test cmdIL-6.9 {lassign command - assignment to arrays} {
 test cmdIL-6.10 {lassign command - variable update error} -body {
     set x(x) {}
     lassign a x
-} -code 1 -result {can't set "x": variable is array} -cleanup {
+} -returnCodes 1 -result {can't set "x": variable is array} -cleanup {
     unset x
 }
 test cmdIL-6.11 {lassign command - variable update error} -body {
diff --git a/unix/mkLinks b/unix/mkLinks
index 9568218..1112183 100644
--- a/unix/mkLinks
+++ b/unix/mkLinks
@@ -1668,6 +1668,10 @@ if test -r lappend.n; then
     rm -f lappend.n.*
     $ZIP lappend.n
 fi
+if test -r lassign.n; then
+    rm -f lassign.n.*
+    $ZIP lassign.n
+fi
 if test -r library.n; then
     rm -f library.n.*
     $ZIP library.n
-- 
cgit v0.12