diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-17 14:59:24 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-17 14:59:24 -0700 |
| commit | 7cd07a6ad4a7ba4b9df9da6843018a67a582d720 (patch) | |
| tree | 0a7d38d8be1e68cbecee788afabb6b4b4e9f4b9e /071print.mu | |
| parent | a2a6e35ef5fd56518d6f7a719aab616a7751a551 (diff) | |
| download | mu-7cd07a6ad4a7ba4b9df9da6843018a67a582d720.tar.gz | |
1803
Bring back my optimizations for avoiding unnecessary work. But they shouldn't be needed for correctness, and they aren't.
Diffstat (limited to '071print.mu')
| -rw-r--r-- | 071print.mu | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/071print.mu b/071print.mu index 85185405..818c95f5 100644 --- a/071print.mu +++ b/071print.mu @@ -112,16 +112,17 @@ recipe print-character [ break-unless x:address:screen width:number <- get x:address:screen/deref, num-columns:offset height:number <- get x:address:screen/deref, num-rows:offset + # if cursor is out of bounds, silently exit row:address:number <- get-address x:address:screen/deref, cursor-row:offset -#? legal?:boolean <- greater-or-equal row:address:number/deref, 0:literal -#? reply-unless legal?:boolean, x:address:screen -#? legal?:boolean <- lesser-than row:address:number/deref, height:number -#? reply-unless legal?:boolean, x:address:screen + legal?:boolean <- greater-or-equal row:address:number/deref, 0:literal + reply-unless legal?:boolean, x:address:screen + legal?:boolean <- lesser-than row:address:number/deref, height:number + reply-unless legal?:boolean, x:address:screen column:address:number <- get-address x:address:screen/deref, cursor-column:offset -#? legal?:boolean <- greater-or-equal column:address:number/deref, 0:literal -#? reply-unless legal?:boolean, x:address:screen -#? legal?:boolean <- lesser-than column:address:number/deref, width:number -#? reply-unless legal?:boolean, x:address:screen + legal?:boolean <- greater-or-equal column:address:number/deref, 0:literal + reply-unless legal?:boolean, x:address:screen + legal?:boolean <- lesser-than column:address:number/deref, width:number + reply-unless legal?:boolean, x:address:screen # special-case: newline { newline?:boolean <- equal c:character, 10:literal/newline |