1# procvar2.tcl --
2#
3#  Test file for compilation.
4#  Simple procedure with local variables. Used to test that the local
5#  variables count is set correctly in the proc struct created for the
6#  procedure.
7#
8# Copyright (c) 1998-2000 by Ajuba Solutions.
9#
10# See the file "license.terms" for information on usage and redistribution
11# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12#
13# RCS: @(#) $Id: procvar2.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $
14
15proc a { x y } {
16    set l [string tolower $x ]
17    set m [string toupper $y ]
18
19    return [list $x $l $y $m]
20}
21
22a TEST test
23