Use load-args-process.

* tl-who.tl: Replace command processor with load-args-process,
which is now in the language as of TXR 288.

* README.md: Now requires 288 not 287.

2 files changed, 2 insertions, 23 deletions

diff --git a/README.md b/README.md
index d266b6e..2102c6f 100644
--- a/README.md
+++ b/README.md
@@ -313,7 +313,7 @@ thus defaulted).
 
 TL-WHO has no external dependencies other than TXR itself.
 
-It requires version 287 or newer.
+It requires version 288 or newer.
 
 ## Installation/Use
 
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"))