# procshd6.tcl --
#
#  Test file for compilation.
#  This file contains a proc definintion, where the body is shared with other
#  statements. The body, however, is not a literal and will not be compiled.
#
# Copyright (c) 1998-2000 by Ajuba Solutions. 
# Copyright (c) 2000, 2017 ActiveState Software Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# 
# RCS: @(#) $Id: procshd6.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $

set x x

set b "return \"$x : $x\""

proc a { x } "return \"$x : $x\""

list [a TEST] $b
