diff options
| author | Shav Kinderlehrer <shav@trinket.icu> | 2026-05-08 19:17:47 -0400 |
|---|---|---|
| committer | Shav Kinderlehrer <shav@trinket.icu> | 2026-05-08 19:17:47 -0400 |
| commit | c020b4228dec6b2e6489f58ee169aeb870a3da00 (patch) | |
| tree | 6f83985862b91ee6e4bd9865280f3beaa1bed4a3 /scm/extant-input.scm | |
| parent | 91e1dbfd946f8396709d83701a6651b5c2ca7bdc (diff) | |
| download | extant-c020b4228dec6b2e6489f58ee169aeb870a3da00.tar.gz extant-c020b4228dec6b2e6489f58ee169aeb870a3da00.zip | |
Improves some of the scheme logic and adds a lock file so that people
don't open a million instances of extant on accident.
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))))) |