From 32b17bf43e48685a622b5ee1519b6b51834dba66 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 19 Aug 2011 01:47:51 +0900 Subject: [PATCH] updating ANSI escapes in (chibi test) to use \xNN; with semi-colon suffix --- lib/chibi/test.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index e5f07d7b..94041a4f 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -301,14 +301,14 @@ (define (display-to-string x) (if (string? x) x (call-with-output-string (lambda (out) (display x out))))) -(define (red x) (string-append "\x1B[31m" (display-to-string x) "\x1B[0m")) -(define (green x) (string-append "\x1B[32m" (display-to-string x) "\x1B[0m")) -(define (yellow x) (string-append "\x1B[33m" (display-to-string x) "\x1B[0m")) -;; (define (blue x) (string-append "\x1B[34m" (display-to-string x) "\x1B[0m")) -;; (define (magenta x) (string-append "\x1B[35m" (display-to-string x) "\x1B[0m")) -;; (define (cyan x) (string-append "\x1B[36m" (display-to-string x) "\x1B[0m")) -(define (bold x) (string-append "\x1B[1m" (display-to-string x) "\x1B[0m")) -(define (underline x) (string-append "\x1B[4m" (display-to-string x) "\x1B[0m")) +(define (red x) (string-append "\x1B;[31m" (display-to-string x) "\x1B;[0m")) +(define (green x) (string-append "\x1B;[32m" (display-to-string x) "\x1B;[0m")) +(define (yellow x) (string-append "\x1B;[33m" (display-to-string x) "\x1B;[0m")) +;; (define (blue x) (string-append "\x1B;[34m" (display-to-string x) "\x1B;[0m")) +;; (define (magenta x) (string-append "\x1B;[35m" (display-to-string x) "\x1B;[0m")) +;; (define (cyan x) (string-append "\x1B;[36m" (display-to-string x) "\x1B;[0m")) +(define (bold x) (string-append "\x1B;[1m" (display-to-string x) "\x1B;[0m")) +(define (underline x) (string-append "\x1B;[4m" (display-to-string x) "\x1B;[0m")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;