diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-29 09:45:57 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-29 09:45:57 -0800 |
| commit | 993ec47b2095a45c084c54bc815f4803435b5565 (patch) | |
| tree | 0cd2f4ccf8b91a1d63e475b2c7cea030d89c1450 /color-repl.mu | |
| parent | febe075e327819fb0dd93c154fa1a8aedf6b78cb (diff) | |
| download | mu-993ec47b2095a45c084c54bc815f4803435b5565.tar.gz | |
669 - bugfix in escaped characters
Style lesson: always save args the moment you enter the function.
Diffstat (limited to 'color-repl.mu')
| -rw-r--r-- | color-repl.mu | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/color-repl.mu b/color-repl.mu index c3d0fae6..d0a895bf 100644 --- a/color-repl.mu +++ b/color-repl.mu @@ -235,7 +235,7 @@ { begin (backslash?:boolean <- equal c:character ((#\\ literal))) (break-unless backslash?:boolean) - (in:buffer-address escapes:integer-buffer-address <- slurp-escaped-character in:buffer-address 6:literal/cyan escapes:integer-buffer-address) + (in:buffer-address escapes:integer-buffer-address <- slurp-escaped-character in:buffer-address 6:literal/cyan escapes:integer-buffer-address abort:continuation) (jump next-key-in-string:offset) } ; if not backslash @@ -250,11 +250,11 @@ (default-space:space-address <- new space:literal 30:literal) (in:buffer-address <- next-input) (color-code:integer <- next-input) + (escapes:integer-buffer-address <- next-input) (abort:continuation <- next-input) (c:character <- $wait-for-key-from-host) (maybe-cancel-this-sexp c:character abort:continuation) ; test: check needs to come before print ($print-key-to-host c:character color-code:integer) - (escapes:integer-buffer-address <- next-input) (len:integer-address <- get-address in:buffer-address/deref length:offset) (escapes:integer-buffer-address <- append escapes:integer-buffer-address len:integer-address/deref) ; todo: type violation ;? (print-primitive-to-host (("+" literal))) ;? 1 |