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