From 49c57f3477397f4e0676c59e133b56d6a8e8ce1b Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Mar 2023 09:55:01 -0400
Subject: Fix infinite loop in line editor.

---
 catbird/line-editor.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3