1# no-op.tcl --
2#
3#	The [no-op] command of the package "control".
4#	It accepts any number of arguments and does nothing.
5#	It returns an empty string.
6#
7# RCS: @(#) $Id: no-op.tcl,v 1.2 2004/01/15 06:36:12 andreas_kupries Exp $
8
9namespace eval ::control {
10
11    proc no-op args {}
12
13}
14
15