From 6c1376f8307a3c7b98dfd5ef09670bd15c05f399 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 28 Aug 2015 23:21:48 -0700 Subject: 2095 Finally terminate the experiment of keeping debug prints around. I'm also going to give up on maintaining counts. What we really need is two kinds of tracing: a) For tests, just the domain-specific facts, organized by labels. b) For debugging, just transient dumps to stdout. b) only works if stdout is clean by default. Hmm, I think this means 'stash' should be the transient kind of trace. --- chessboard.mu | 8 -------- 1 file changed, 8 deletions(-) (limited to 'chessboard.mu') diff --git a/chessboard.mu b/chessboard.mu index ce41a738..a0bdb435 100644 --- a/chessboard.mu +++ b/chessboard.mu @@ -155,11 +155,9 @@ recipe print-board [ board:address:array:address:array:character <- next-ingredient row:number <- copy 7 # start printing from the top of the board # print each row -#? $print [printing board to screen ], screen, 10/newline { done?:boolean <- lesser-than row, 0 break-if done? -#? $print [printing rank ], row, 10/newline # print rank number as a legend rank:number <- add row, 1 print-integer screen, rank @@ -182,17 +180,12 @@ recipe print-board [ loop } # print file letters as legend -#? $print [printing legend -#? ] #? 1 s <- new [ +----------------] print-string screen, s screen <- cursor-to-next-line screen -#? screen <- print-character screen, 97 #? 1 s <- new [ a b c d e f g h] screen <- print-string screen, s screen <- cursor-to-next-line screen -#? $print [done printing board -#? ] #? 1 ] # board:address:array:address:array:character <- initial-position @@ -225,7 +218,6 @@ scenario printing-the-board [ run [ 1:address:array:address:array:character/board <- initial-position screen:address <- print-board screen:address, 1:address:array:address:array:character/board -#? $dump-screen #? 1 ] screen-should-contain [ # 012345678901234567890123456789 -- cgit 1.4.1-2-gfad0