diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-30 13:38:49 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-30 13:38:49 -0800 |
| commit | 9c44646dc9a7a8982d00297ae49f3fcdc3410859 (patch) | |
| tree | d947cf3506854ce4cfc225c2dabfef72cc16efc8 /color-repl.mu | |
| parent | a79a17b93fb030a66ab04e99a4ef3c318707227e (diff) | |
| download | mu-9c44646dc9a7a8982d00297ae49f3fcdc3410859.tar.gz | |
685
Diffstat (limited to 'color-repl.mu')
| -rw-r--r-- | color-repl.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/color-repl.mu b/color-repl.mu index 2e126738..0b0535f2 100644 --- a/color-repl.mu +++ b/color-repl.mu @@ -382,9 +382,9 @@ ;? (print-primitive-to-host x:integer) ;? 1 ;? (print-primitive-to-host ((#\newline literal))) ;? 1 (history:buffer-address <- append history:buffer-address s:string-address) - (len:integer <- get history:buffer-address/deref length:offset) - (print-primitive-to-host len:integer) - (print-primitive-to-host ((#\newline literal))) +;? (len:integer <- get history:buffer-address/deref length:offset) ;? 1 +;? (print-primitive-to-host len:integer) ;? 1 +;? (print-primitive-to-host ((#\newline literal))) ;? 1 (retro-mode) ; print errors cleanly (t:string-address <- $eval s:string-address) (cursor-mode) |