From 45449a4f337427cbb13150d4cdc4391507363575 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 26 May 2015 19:34:21 -0700
Subject: 1478

---
 071print.mu           | 4 ++--
 072scenario_screen.cc | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/071print.mu b/071print.mu
index 267d1aca..efa009f7 100644
--- a/071print.mu
+++ b/071print.mu
@@ -164,14 +164,14 @@ scenario print-character-at-top-left [
 scenario print-character-color [
   run [
     1:address:screen <- init-fake-screen 3:literal/width, 2:literal/height
-    1:address:screen <- print-character 1:address:screen, 97:literal/a, 2:literal/red
+    1:address:screen <- print-character 1:address:screen, 97:literal/a, 1:literal/red
     2:address:array:screen-cell <- get 1:address:screen/deref, data:offset
     3:array:screen-cell <- copy 2:address:array:screen-cell/deref
   ]
   memory-should-contain [
     3 <- 6  # width*height
     4 <- 97  # 'a'
-    5 <- 2  # red
+    5 <- 1  # red
     6 <- 0
   ]
 ]
diff --git a/072scenario_screen.cc b/072scenario_screen.cc
index 76392584..2e2dd976 100644
--- a/072scenario_screen.cc
+++ b/072scenario_screen.cc
@@ -22,14 +22,15 @@ scenario screen-in-scenario [
 
 :(scenario screen_in_scenario_unicode)
 # screen-should-contain can check unicode characters in the fake screen
-scenario screen-in-scenario [
+scenario screen-in-scenario-unicode-color [
   assume-screen 5:literal/width, 3:literal/height
   run [
-    screen:address <- print-character screen:address, 955:literal  # 'λ'
+    screen:address <- print-character screen:address, 955:literal/greek-small-lambda, 1:literal/red
+    screen:address <- print-character screen:address, 97:literal/a
   ]
   screen-should-contain [
   #  01234
-    .λ    .
+    .λa   .
     .     .
     .     .
   ]
-- 
cgit 1.4.1-2-gfad0