about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-01-29 09:45:57 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-01-29 09:45:57 -0800
commit993ec47b2095a45c084c54bc815f4803435b5565 (patch)
tree0cd2f4ccf8b91a1d63e475b2c7cea030d89c1450
parentfebe075e327819fb0dd93c154fa1a8aedf6b78cb (diff)
downloadmu-993ec47b2095a45c084c54bc815f4803435b5565.tar.gz
669 - bugfix in escaped characters
Style lesson: always save args the moment you enter the function.
-rw-r--r--color-repl.mu4
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