summaryrefslogtreecommitdiff
path: root/haunt/ui.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-04-11 15:31:36 -0400
committerDavid Thompson <dthompson2@worcester.edu>2015-04-11 15:33:56 -0400
commitc7d98392ef3b5f016f02ded61c73f2c818d004cf (patch)
treef088581b3219bc3b0ebc76e090ebc9e63866ffe8 /haunt/ui.scm
parentd4ff34e7122c9832de599c5b34f070634b6c5116 (diff)
ui: Remove use of defunct haunt-error.
* haunt/ui.scm (run-haunt-command): Remove call to 'haunt-error'.
Diffstat (limited to 'haunt/ui.scm')
-rw-r--r--haunt/ui.scm2
1 files changed, 1 insertions, 1 deletions
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))