1808 - helper to print newlines during debugging

The recent session makes me weary of deleting comment counts from inside
strings, and the newlines everywhere take up vertical space. Considered
println like pascal/ruby, but I'd like something I can add/remove at the
end of existing prints. So this hack for $print.

1 files changed, 5 insertions, 9 deletions

diff --git a/061channel.mu b/061channel.mu
index 9f86ba2d..2a839898 100644
--- a/061channel.mu
+++ b/061channel.mu
@@ -298,25 +298,22 @@ recipe buffer-lines [
         break-unless backspace?:boolean
         # drop previous character
 #?         close-console #? 2
-#?         $print [backspace! #? 1
+#?         $print [backspace!
 #? ] #? 1
         {
           buffer-length:address:number <- get-address line:address:buffer/deref, length:offset
           buffer-empty?:boolean <- equal buffer-length:address:number/deref, 0:literal
           break-if buffer-empty?:boolean
-#?           $print [before: ], buffer-length:address:number/deref, [ 
-#? ] #? 1
+#?           $print [before: ], buffer-length:address:number/deref, 10:literal/newline
           buffer-length:address:number/deref <- subtract buffer-length:address:number/deref, 1:literal
-#?           $print [after: ], buffer-length:address:number/deref, [ 
-#? ] #? 1
+#?           $print [after: ], buffer-length:address:number/deref, 10:literal/newline
         }
 #?         $exit #? 2
         # and don't append this one
         loop +next-character:label
       }
       # append anything else
-#?       $print [buffer-lines: appending ], c:character, [ 
-#? ]
+#?       $print [buffer-lines: appending ], c:character, 10:literal/newline
       line:address:buffer <- buffer-append line:address:buffer, c:character
       line-done?:boolean <- equal c:character, 10:literal/newline
       break-if line-done?:boolean
@@ -337,8 +334,7 @@ recipe buffer-lines [
       break-if done?:boolean
       c:character <- index line-contents:address:array:character/deref, i:number
       out:address:channel <- write out:address:channel, c:character
-#?       $print [writing ], i:number, [: ], c:character, [ 
-#? ] #? 1
+#?       $print [writing ], i:number, [: ], c:character, 10:literal/newline
       i:number <- add i:number, 1:literal
       loop
     }