1# override.tcl --
2#
3#  Checks that files that contain procedures with the same name as the
4#  ones used by the compiler package do not cause the ones in the compiler
5#  package to disappear.
6#  They would if the temporary command created in CompileOneProcBody had
7#  the same name as the procedure whose body we are compiling.
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: override.tcl,v 1.2 2000/05/30 22:19:11 wart Exp $
15
16# this code used to make the procomp::log proc in procomp.tcl disappear.
17# The error looks like this:
18#	invalid command name "log"
19#	    while executing
20#	"log "compiled: $path""
21#	    (procedure "fileCompile" line 51)
22#	    invoked from within
23#	"fileCompile $file"
24#	    (procedure "procomp::run" line 9)
25#	    invoked from within
26#	"procomp::run"
27#	    (file "compiler/startup.tcl" line 43)
28# If the name of the compiler package's namespce is changed, this namespace
29# must be changed as well to keep the test valid.
30
31namespace eval procomp {
32    namespace export log
33}
34
35proc procomp::log { msg } {
36    return "$msg : $msg"
37}
38
39procomp::log TEST
40