diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-03-26 09:55:01 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-03-26 09:55:01 -0400 |
| commit | 49c57f3477397f4e0676c59e133b56d6a8e8ce1b (patch) | |
| tree | c6b3dc5556c0e87ed3ea870670f09c0996f9db47 | |
| parent | bd9adb3c7c6e97afb56320d32f994a4596a71cce (diff) | |
Fix infinite loop in line editor.
| -rw-r--r-- | catbird/line-editor.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/catbird/line-editor.scm b/catbird/line-editor.scm index 03dc4a9..53aa4dd 100644 --- a/catbird/line-editor.scm +++ b/catbird/line-editor.scm @@ -78,7 +78,11 @@ (accepting-input? #:accessor accepting-input? #:init-value #t)) (define-method (on-change (editor <line-editor>) slot old new) - (update-visual editor)) + (case slot + ((prompt) + (update-visual editor)) + (else + (next-method)))) (define-method (on-boot (editor <line-editor>)) (attach-to editor |