diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-05-26 23:05:57 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-05-26 23:05:57 -0700 |
commit | 2389d976f9979598dd2e0ba517976ca1fc57fd4d (patch) | |
tree | cac2ffdad5e81ac066e6b878c0381c32d112a8dc | |
parent | bd5ae9d80231b386cdb04653ad10739c58fb9418 (diff) | |
download | mu-2389d976f9979598dd2e0ba517976ca1fc57fd4d.tar.gz |
1481
-rw-r--r-- | 071print.mu | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/071print.mu b/071print.mu index efa009f7..d7edf7ae 100644 --- a/071print.mu +++ b/071print.mu @@ -47,11 +47,11 @@ recipe clear-screen [ { done?:boolean <- greater-or-equal i:number, max:number break-if done?:boolean - c:address:screen-cell <- index-address buf:address:array:screen-cell/deref, i:number - c2:address:character <- get-address c:address:screen-cell/deref, contents:offset - c2:address:character/deref <- copy [ ] - fg:address:character <- get-address c:address:screen-cell/deref, color:offset - fg:address:character/deref <- copy 7:literal/white + curr:address:screen-cell <- index-address buf:address:array:screen-cell/deref, i:number + curr-content:address:character <- get-address curr:address:screen-cell/deref, contents:offset + curr-content:address:character/deref <- copy [ ] + curr-color:address:character <- get-address curr:address:screen-cell/deref, color:offset + curr-color:address:character/deref <- copy 7:literal/white i:number <- add i:number, 1:literal loop } |