# no-op.tcl --
#
#	The [no-op] command of the package "control".
#	It accepts any number of arguments and does nothing.
#	It returns an empty string.
#
# RCS: @(#) $Id: no-op.tcl,v 1.1 2001/08/21 22:54:15 dgp Exp $

namespace eval ::control {

    proc no-op args {}

}

