dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui: Remove use of defunct haunt-error. 

* haunt/ui.scm (run-haunt-command): Remove call to 'haunt-error'.
This commit is contained in:
David Thompson 2015-04-11 15:31:36 -04:00
parent d4ff34e712
commit c7d98392ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
haunt/ui.scm
View File

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