about summary refs log tree commit diff stats
path: root/082scenario_screen.cc
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-11-21 10:19:34 -0800
committerKartik K. Agaram <vc@akkartik.com>2015-11-21 10:19:34 -0800
commit136412d263cc241bf9dfbe46271547615e3ba03d (patch)
tree7d0e9a7eb900f5e61ef78e669b9459b2d082acd3 /082scenario_screen.cc
parent3f7eed6c600d6fb10ad6ae279f87541af69af9a2 (diff)
downloadmu-136412d263cc241bf9dfbe46271547615e3ba03d.tar.gz
2468 - overload print-character as just 'print'
Diffstat (limited to '082scenario_screen.cc')
-rw-r--r--082scenario_screen.cc14
1 files changed, 7 insertions, 7 deletions
diff --git a/082scenario_screen.cc b/082scenario_screen.cc
index 8df0a560..36e1c1b1 100644
--- a/082scenario_screen.cc
+++ b/082scenario_screen.cc
@@ -9,7 +9,7 @@
 scenario screen-in-scenario [
   assume-screen 5/width, 3/height
   run [
-    screen:address:screen <- print-character screen:address:screen, 97  # 'a'
+    screen:address:screen <- print screen:address:screen, 97  # 'a'
   ]
   screen-should-contain [
   #  01234
@@ -23,8 +23,8 @@ scenario screen-in-scenario [
 scenario screen-in-scenario-unicode-color [
   assume-screen 5/width, 3/height
   run [
-    screen:address:screen <- print-character screen:address:screen, 955/greek-small-lambda, 1/red
-    screen:address:screen <- print-character screen:address:screen, 97/a
+    screen:address:screen <- print screen:address:screen, 955/greek-small-lambda, 1/red
+    screen:address:screen <- print screen:address:screen, 97/a
   ]
   screen-should-contain [
   #  01234
@@ -39,8 +39,8 @@ scenario screen-in-scenario-unicode-color [
 scenario screen-in-scenario-color [
   assume-screen 5/width, 3/height
   run [
-    screen:address:screen <- print-character screen:address:screen, 955/greek-small-lambda, 1/red
-    screen:address:screen <- print-character screen:address:screen, 97/a, 7/white
+    screen:address:screen <- print screen:address:screen, 955/greek-small-lambda, 1/red
+    screen:address:screen <- print screen:address:screen, 97/a, 7/white
   ]
   # screen-should-contain shows everything
   screen-should-contain [
@@ -72,7 +72,7 @@ scenario screen-in-scenario-color [
 scenario screen-in-scenario-error [
   assume-screen 5/width, 3/height
   run [
-    screen:address:screen <- print-character screen:address:screen, 97  # 'a'
+    screen:address:screen <- print screen:address:screen, 97  # 'a'
   ]
   screen-should-contain [
   #  01234
@@ -90,7 +90,7 @@ scenario screen-in-scenario-error [
 scenario screen-in-scenario-color [
   assume-screen 5/width, 3/height
   run [
-    screen:address:screen <- print-character screen:address:screen, 97/a, 1/red
+    screen:address:screen <- print screen:address:screen, 97/a, 1/red
   ]
   screen-should-contain-in-color 2/green, [
   #  01234