1# procshd1.tcl -- 2# 3# Test file for compilation. 4# This file contains a proc definintion, where the body is shared with 5# another proc. The args are different for the two procs. 6# It checks that the compiler detects that the object is shared and creates a 7# copy that it will then compile. 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: procshd1.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $ 15 16proc a { x } { 17 return "$x : $x" 18} 19 20proc b { x {y dummy} } { 21 return "$x : $x" 22} 23 24list [a TEST] [b TEST] 25