From 389f5388f072add2f875aeceae97d0b8a288da59 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 27 Jul 2014 16:08:28 +0900 Subject: [PATCH] Using consistent spacing. --- lib/chibi/term/ansi.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/chibi/term/ansi.scm b/lib/chibi/term/ansi.scm index 2c2df938..4dac16b9 100644 --- a/lib/chibi/term/ansi.scm +++ b/lib/chibi/term/ansi.scm @@ -13,10 +13,10 @@ (define (make-wrap-procedure start-escape end-escape) (lambda (str) (if (not (string? str)) - (error "argument must be a string" str)) + (error "argument must be a string" str)) (if (ansi-escapes-enabled?) - (string-append start-escape str end-escape) - str))) + (string-append start-escape str end-escape) + str))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -38,7 +38,7 @@ ;;> specified text color. (define black-escape - (make-simple-escape-procedure 30)) + (make-simple-escape-procedure 30)) (define red-escape (make-simple-escape-procedure 31)) (define green-escape