1# procshd6.tcl --
2#
3#  Test file for compilation.
4#  This file contains a proc definintion, where the body is loaded from a
5#  variable. Thus, the body is not compiled.
6#
7# Copyright (c) 1998-2000 by Ajuba Solutions.
8#
9# See the file "license.terms" for information on usage and redistribution
10# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11#
12# RCS: @(#) $Id: procshd8.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $
13
14set a {
15    return "$x : $x"
16}
17
18proc b { x } $a
19
20proc c { x {y dummy} } {
21    return "$x : $x"
22}
23
24list $a [b TEST] [c TEST]
25