diff options
| -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 |