1 files changed, 0 insertions, 64 deletions
diff --git a/ipl/mprocs/loadfile.icn b/ipl/mprocs/loadfile.icn
deleted file mode 100644
index 28cd0b2..0000000
--- a/ipl/mprocs/loadfile.icn
+++ /dev/null
@@ -1,64 +0,0 @@
-############################################################################
-#
-#	File:     loadfile.icn
-#
-#	Subject:  Procedure to produce and load program on the fly
-#
-#	Author:   Ralph E. Griswold
-#
-#	Date:     November 21, 1996
-#
-############################################################################
-#
-#   This file is in the public domain.
-#
-############################################################################
-#
-#  loadfile(exp, link, ...) produces and loads a program that generates
-#  the results of exp.  The trailing arguments name link
-#  files needed for the expression.  loadfile() returns a procedure
-#  that generates the results.
-#
-############################################################################
-#
-#  Requires:  MT-Icon, system(), pipes, /tmp
-#
-############################################################################
-#
-#  Links:  io
-#
-############################################################################
-
-link io
-
-procedure loadfile(exp, links[])	#: produce and load program
-   local output, prog
-   static name
-
-   output := tempfile("load", ".icn", "/tmp")
-
-   image(output) ? {
-      ="file("
-      name := tab(find(".icn"))
-      }
-
-   write(output, "invocable all")
-   every write(output, "link ", image(!links)) 
-   write(output, "procedure main(args)")
-   write(output, "   suspend ", exp)
-   write(output, "end")
-
-   close(output)
-
-   if system("mticont -o " || name || " -s " || name ||
-      " >/dev/null 2>/dev/null") ~= 0 then fail
-
-   remove(name || ".icn")		# remove source code file
-
-   #  Load the program
-
-   prog := load(name) | stop("*** load failure in loadfile")
-
-   return variable("main", prog)
-   
-end