diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-28 01:45:13 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-28 01:45:13 -0800 |
| commit | 563d367a22937ebb3f3ab7cef9d551d4257f1021 (patch) | |
| tree | f0b445d7fcc341d5df2cfceaacef4bb86614ea9f | |
| parent | fa4e97359f7d00c774c5b6d496a639c035eefee6 (diff) | |
| download | mu-563d367a22937ebb3f3ab7cef9d551d4257f1021.tar.gz | |
656
| -rw-r--r-- | color-repl.mu | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/color-repl.mu b/color-repl.mu index d33888eb..73b6935d 100644 --- a/color-repl.mu +++ b/color-repl.mu @@ -16,7 +16,6 @@ { 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 past newline @@ -26,6 +25,7 @@ ($print-key-to-host c:character) ; but only if we need to { begin + (len:integer-address <- get-address result:buffer-address/deref length:offset) (zero?:boolean <- lesser-or-equal len:integer-address/deref 0:literal) (break-if zero?:boolean) (len:integer-address/deref <- subtract len:integer-address/deref 1:literal) |