Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

updating ANSI escapes in (chibi test) to use \xNN; with semi-colon suffix

Browse source
This commit is contained in:
Alex Shinn 2011-08-19 01:47:51 +09:00
parent c9f279ea28
commit 32b17bf43e
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/chibi/test.scm
View file

@ -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"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;