From 991d76f32817f5515fb8db25a7d5ca2912cfe4ac Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 23 Apr 2016 14:51:20 -0700
Subject: 2860 - rename 'index-address' to 'put-index'

---
 081print.mu | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to '081print.mu')

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
-- 
cgit 1.4.1-2-gfad0