From c7d98392ef3b5f016f02ded61c73f2c818d004cf Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 11 Apr 2015 15:31:36 -0400
Subject: ui: Remove use of defunct haunt-error.

* haunt/ui.scm (run-haunt-command): Remove call to 'haunt-error'.
---
 haunt/ui.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haunt/ui.scm b/haunt/ui.scm
index e53adb8..e19a15b 100644
--- a/haunt/ui.scm
+++ b/haunt/ui.scm
@@ -116,7 +116,7 @@ There is NO WARRANTY, to the extent permitted by law.~%"
             (lambda ()
               (resolve-interface `(haunt ui ,command)))
             (lambda -
-              (haunt-error "~a: command not found" command)
+              (format (current-error-port) "~a: invalid subcommand~%" command)
               (show-haunt-usage))))
          (command-main (module-ref module (symbol-append 'haunt- command))))
     (parameterize ((program-name command))
-- 
cgit v1.2.3