1# procbod3.tcl --
2#
3#  Test file for compilation.
4#  Defines a proc which will be compiled, then does an info body on it and
5#  uses it as a string, then calls the procedure again.
6#  Checks that the internal representation of the compiled procedure is
7#  not flushed.
8#
9# Copyright (c) 1998-2000 by Ajuba Solutions.
10#
11# See the file "license.terms" for information on usage and redistribution
12# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13#
14# RCS: @(#) $Id: procbod3.tcl,v 1.2 2000/05/30 22:19:12 wart Exp $
15
16proc a { x } {
17    return "$x : $x"
18}
19
20set result [a TEST]
21set L ""
22lappend L [info body a]
23lappend result [a TEST]
24
25set result
26