diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-08 16:30:10 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-08 16:30:10 -0700 |
commit | 68bc2ffb0faf9b9e4e14b6cec16d88d23a73c9e1 (patch) | |
tree | c416afa35dcbad85e8bb48866d2806d2d7bec8a0 /edit.mu | |
parent | 0685569c702adbd60fb60b69c4bc4e1c4e9cbd0c (diff) | |
download | mu-68bc2ffb0faf9b9e4e14b6cec16d88d23a73c9e1.tar.gz |
1728
Diffstat (limited to 'edit.mu')
-rw-r--r-- | edit.mu | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/edit.mu b/edit.mu index aa09fb8b..f743aa60 100644 --- a/edit.mu +++ b/edit.mu @@ -1892,7 +1892,7 @@ recipe run-sandboxes [ # compute result of running editor contents curr:address:editor-data <- get editor:address:editor-data/deref, next-editor:offset in:address:array:character <- editor-contents curr:address:editor-data - out:address:array:character <- run-interactive in:address:array:character + out:address:array:character, warnings:address:array:character <- run-interactive in:address:array:character # move cursor # temporarily leave just one line for typing into sandboxes left:number <- get curr:address:editor-data/deref, left:offset @@ -1900,7 +1900,13 @@ recipe run-sandboxes [ dest-row:number <- add top:number, 1:literal move-cursor screen:address, dest-row:number, left:number # print result + { + break-unless warnings:address:array:character + print-string screen:address, warnings:address:array:character, 1:literal/red + jump +done:label + } print-string screen:address, out:address:array:character, 245:literal/grey + +done reply screen:address/same-as-ingredient:1 ] |