diff options
Diffstat (limited to 'ipl/mprogs/mtutils.icn')
-rw-r--r-- | ipl/mprogs/mtutils.icn | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/ipl/mprogs/mtutils.icn b/ipl/mprogs/mtutils.icn deleted file mode 100644 index 3fe42ac..0000000 --- a/ipl/mprogs/mtutils.icn +++ /dev/null @@ -1,40 +0,0 @@ -############################################################################ -# -# File: mtutils.icn -# -# Subject: Program fpr MT Icon -# -# Author: Ralph E. Griswold -# -# Date: March 3, 1997 -# -############################################################################ -# -# This file is in the public domain. -# -############################################################################ -# -# Utility procedures for use with MT Icon programs (threads) -# -############################################################################ -# -# Requires: MT Icon -# -############################################################################ - -procedure root() - - C := &main - - while C := parent(C) - - return C - -end - -procedure main() - - if root(&main) === &main then write("safe to talk") - else write("someone may be listening") - -end |