@@ -302,10 +302,10 @@ For help on these, use 'analyze --help' or 'fix --help'."
302302
303303 (match (resyntax-analyze-options-output-destination options)
304304 ['console
305- (printf "resyntax: --- displaying results ---\n " )
305+ (displayln "resyntax: --- displaying results --- " )
306306 (display-results)]
307307 [(? path? output-path)
308- (printf "resyntax: --- writing results to file ---\n " )
308+ (displayln "resyntax: --- writing results to file --- " )
309309 (with-output-to-file output-path display-results #:mode 'text )]))
310310
311311
@@ -347,7 +347,7 @@ For help on these, use 'analyze --help' or 'fix --help'."
347347 (define issue-string (if (> total-fixes 1 ) "issues " "issue " ))
348348 (define file-string (if (> total-files 1 ) "files " "file " ))
349349 (if (zero? total-fixes)
350- (printf "Resyntax found no issues.\n " )
350+ (displayln "Resyntax found no issues. " )
351351 (printf "Resyntax fixed ~a ~a in ~a ~a.\n\n " total-fixes issue-string total-files file-string))
352352 (for ([rule+count (in-list fix-counts-by-rule)])
353353 (match-define (entry rule count) rule+count)
@@ -358,7 +358,7 @@ For help on these, use 'analyze --help' or 'fix --help'."
358358
359359
360360(define (resyntax-fix-print-plain-text-summary analysis)
361- (printf "resyntax: --- summary ---\n \n " )
361+ (displayln "resyntax: --- summary ---\n " )
362362 (define total-fixes (resyntax-analysis-total-fixes analysis))
363363 (define total-files (resyntax-analysis-total-sources-modified analysis))
364364 (define message
@@ -399,11 +399,11 @@ For help on these, use 'analyze --help' or 'fix --help'."
399399 (define issue-string (if (> total-fixes 1 ) "issues " "issue " ))
400400 (define file-string (if (> total-files 1 ) "files " "file " ))
401401 (if (zero? total-fixes)
402- (printf "Resyntax found no issues. " )
402+ (display "Resyntax found no issues. " )
403403 (printf "Resyntax fixed ~a ~a in ~a ~a. "
404404 total-fixes issue-string total-files file-string))
405405 (unless (zero? total-fixes)
406- (printf " \n " )
406+ (newline )
407407 (for ([rule+count (in-list fix-counts-by-rule)])
408408 (match-define (entry rule count) rule+count)
409409 (define occurrence-string (if (> count 1 ) "occurrences " "occurrence " ))
0 commit comments