1 files changed, 1 insertions, 22 deletions
diff --git a/tl-who.tl b/tl-who.tl
index 1f45619..2e065f3 100644
--- a/tl-who.tl
+++ b/tl-who.tl
@@ -24,25 +24,4 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
-;;
-;; New, experimental system construction method for TXR Lisp.
-;; Using the *load-args* feature introduced in Version 287,
-;; we can have a top-level entry point which responds to commands.
-;;
-;;   (load "path/to/tl-who" :compile)   ;; compile out-of-date files
-;;   (load "path/to/tl-who" :clean)     ;; remove compiled files
-;;   (load "path/to/tl-who")            ;; load files, compiled or source
-;;
-
-(compile-only
-  (let ((files '#"tl-who packages specials util who"))
-    (match-case *load-args*
-      (()
-       [mapdo load (cdr files)]) ;; avoid tl-who, this file!
-      ((:compile)
-       [mapdo compile-update-file files])
-      ((:clean)
-       [mapdo (op remove-path
-                  (path-cat (dir-name *load-path*) `@1.tlo`)
-                  nil)
-              files]))))
+(compile-only (load-args-process '#"packages specials util who"))