diff options
Diffstat (limited to 'scm/extant-input.scm')
| -rw-r--r-- | scm/extant-input.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/scm/extant-input.scm b/scm/extant-input.scm index d50a7fe..b06aea6 100644 --- a/scm/extant-input.scm +++ b/scm/extant-input.scm @@ -9,7 +9,9 @@ (define (dispatch-input text) (let loop ((handlers *handlers*)) (if (null? handlers) - `((text . "No handlers found!") - (style . "error")) + '((text . "I could not find a suitable handler for this message.") + (style . error)) (let ((result ((car handlers) text))) - (or result (loop (cdr handlers))))))) + (if (null? result) + (loop (cdr handlers)) + result))))) |