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