about summary refs log tree commit diff stats
path: root/081print.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-04-23 14:51:20 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-04-23 14:51:20 -0700
commit991d76f32817f5515fb8db25a7d5ca2912cfe4ac (patch)
treec6b719df15532d4d5b91feae1f927f2be8a7dc9e /081print.mu
parent538815670a8747e68dd95cd43e0ac1fce184f781 (diff)
downloadmu-991d76f32817f5515fb8db25a7d5ca2912cfe4ac.tar.gz
2860 - rename 'index-address' to 'put-index'
Diffstat (limited to '081print.mu')
-rw-r--r--081print.mu12
1 files changed, 6 insertions, 6 deletions
diff --git a/081print.mu b/081print.mu
index bfa8ac93..21b0cfe4 100644
--- a/081print.mu
+++ b/081print.mu
@@ -37,8 +37,8 @@ def clear-screen screen:address:shared:screen -> screen:address:shared:screen [
     {
       done?:boolean <- greater-or-equal i, max
       break-if done?
-      curr:address:screen-cell <- index-address *buf, i
-      *curr <- merge 0/empty, 7/white
+      curr:screen-cell <- merge 0/empty, 7/white
+      *buf <- put-index *buf, i, curr
       i <- add i, 1
       loop
     }
@@ -149,13 +149,13 @@ def print screen:address:shared:screen, c:character -> screen:address:shared:scr
         column <- subtract column, 1
         *screen <- put *screen, cursor-column:offset, column
         index <- subtract index, 1
-        cursor:address:screen-cell <- index-address *buf, index
-        *cursor <- merge 32/space, 7/white
+        cursor:screen-cell <- merge 32/space, 7/white
+        *buf <- put-index *buf, index, cursor
       }
       return
     }
-    cursor:address:screen-cell <- index-address *buf, index
-    *cursor <- merge c, color
+    cursor:screen-cell <- merge c, color
+    *buf <- put-index *buf, index, cursor
     # increment column unless it's already all the way to the right
     {
       right:number <- subtract width, 1