about summary refs log tree commit diff stats
path: root/071print.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-14 12:06:16 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-14 12:27:31 -0700
commitaf336c444f4fe9d8a1677a200f40748ce5f24a26 (patch)
treeb06b1c2323a5033194724171af7681e760bd546b /071print.mu
parentb98d3876b67a35f1d913ba374749bc97103b7790 (diff)
downloadmu-af336c444f4fe9d8a1677a200f40748ce5f24a26.tar.gz
1368 - alias carriage-return and newline
CRLF still shows as two newlines, though. Cross that bridge when we get
to it.

The new chessboard test is still hanging, though.
Diffstat (limited to '071print.mu')
-rw-r--r--071print.mu4
1 files changed, 2 insertions, 2 deletions
diff --git a/071print.mu b/071print.mu
index 411c8319..ac8ae57c 100644
--- a/071print.mu
+++ b/071print.mu
@@ -67,7 +67,7 @@ recipe print-character [
     max-row:number <- subtract height:number, 1:literal
     # special-case: newline
     {
-      newline?:boolean <- equal c:character, 13:literal
+      newline?:boolean <- equal c:character, 10:literal/newlin
 #?       $print c:character, [ ], newline?:boolean, [ #? 1
 #? ] #? 1
       break-unless newline?:boolean
@@ -153,7 +153,7 @@ scenario print-newline-character [
 #?     $start-tracing #? 3
     1:address:screen <- init-fake-screen 3:literal/width, 2:literal/height
     1:address:screen <- print-character 1:address:screen, 97:literal  # 'a'
-    1:address:screen <- print-character 1:address:screen, 13:literal/newline
+    1:address:screen <- print-character 1:address:screen, 10:literal/newline
     2:number <- get 1:address:screen/deref, cursor-row:offset
     3:number <- get 1:address:screen/deref, cursor-column:offset
     4:address:array:character <- get 1:address:screen/deref, data:offset