From 0e551183ac7c34fab6cd01ad96c31baca8d9f6d3 Mon Sep 17 00:00:00 2001
From: Erik Osheim <erik@osheim.org>
Date: Tue, 12 Apr 2022 12:15:42 -0400
Subject: [PATCH] more readable error messages

---
 femto.tal | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/femto.tal b/femto.tal
index dd0b90f..2fe15a0 100644
--- a/femto.tal
+++ b/femto.tal
@@ -22,6 +22,7 @@
 %sp { #2018 DEO }
 %nl { #0a18 DEO }
 %cr { #0d18 DEO }
+%crlf { cr nl }
 %ansi { #1b18 DEO #5b18 DEO }
 
 ( emit macros )
@@ -171,8 +172,9 @@
 
     .File/success DEI2 #0000 EQU2 .state/modified STZ
     .File/success DEI2 #ce81 LTH2 ,&ok JCN
+    crlf
     ;messages/input-error ;print JSR2
-    ;filename ;print JSR2 nl quit!
+    ;filename ;print JSR2 crlf quit!
 
     ( calculate buffer limit address using start + size )
     &ok .File/success DEI2 ;data ADD2 .buffer/limit STZ2
@@ -1368,7 +1370,7 @@
         ,&loop JMP
     &eol INC2r
         STH2kr .term/rows LDZ2 GTH2 ,&done JCN
-        cr nl INC2 ,&bol JMP
+        crlf INC2 ,&bol JMP
     &do-tab ;emit-tab JSR2 INC2
             .config/tab-width LDZ2 ,&x LDR2 ADD2 ,&x STR2
             ,&loop JMP
@@ -1377,7 +1379,7 @@
          ;emit-red JSR2
     &eof-loop
         STH2kr .term/rows LDZ2 GTH2 ,&done JCN
-        cr nl
+        crlf
         lmargin ;term-move-right JSR2
         emit-~ INC2r
         ,&eof-loop JMP