646

1 files changed, 1 insertions, 1 deletions

diff --git a/color-repl.mu b/color-repl.mu
index 1979ac4f..60b1f8c0 100644
--- a/color-repl.mu
+++ b/color-repl.mu
@@ -13,6 +13,7 @@
   { begin
     next-key
     (c:character <- $wait-for-key-from-host)
+    (len:integer-address <- get-address result:buffer-address/deref length:offset)
     ; handle backspace
     ; test: 3<backspace>4<enter>
     ; todo: backspace into comment or string; backspace past newline
@@ -20,7 +21,6 @@
       (backspace?:boolean <- equal c:character ((#\backspace literal)))
       (break-unless backspace?:boolean)
       ($print-key-to-host c:character)
-      (len:integer-address <- get-address result:buffer-address/deref length:offset)
       ; but only if we need to
       { begin
         (zero?:boolean <- lesser-or-equal len:integer-address/deref 0:literal)