diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-01 13:22:09 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-01 13:22:09 -0800 |
| commit | 35daee8038c2bee05f3c60a28481ded92d9091cb (patch) | |
| tree | c41936a3b117350ff4358e31c24871df42d341c0 /color-repl.mu | |
| parent | cecb7689e44c0e3b29f2e98bdb374791c91db682 (diff) | |
| download | mu-35daee8038c2bee05f3c60a28481ded92d9091cb.tar.gz | |
699 - yup, hack of 697 no longer needed
Diffstat (limited to 'color-repl.mu')
| -rw-r--r-- | color-repl.mu | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/color-repl.mu b/color-repl.mu index 34b86e16..ba0d987d 100644 --- a/color-repl.mu +++ b/color-repl.mu @@ -133,11 +133,6 @@ (open-parens:integer/space:1 <- copy 0:literal) (escapes:buffer-address/space:1 <- init-buffer 5:literal) (not-empty?:boolean/space:1 <- copy nil:literal) - ; save old keyboard - ; beware: recursive calls to process-key below can clobber locals used - ; outside the up/down cases. So we need to save copies that are only used - ; in this part of the function. This is all a giant hack. - (old-keyboard:keyboard-address <- copy k:keyboard-address) ; identify the history item (current-history-index:integer/space:1 <- subtract current-history-index:integer/space:1 1:literal) (curr-history:string-address <- buffer-index history:buffer-address/space:1 current-history-index:integer/space:1) @@ -157,7 +152,6 @@ } ; <enter> is trimmed in the history expression, so wait for the human to ; hit <enter> again or backspace to make edits - (k:keyboard-address <- copy old-keyboard:keyboard-address) (reply nil:literal) } ; if it's a newline, decide whether to return |