Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Using consistent spacing.

Browse source
This commit is contained in:
Alex Shinn 2014-07-27 16:08:28 +09:00
parent bdd953c1e0
commit 389f5388f0
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/term/ansi.scm
View file

@ -13,10 +13,10 @@
(define (make-wrap-procedure start-escape end-escape) (define (make-wrap-procedure start-escape end-escape)
(lambda (str) (lambda (str)
(if (not (string? str)) (if (not (string? str))
(error "argument must be a string" str)) (error "argument must be a string" str))
(if (ansi-escapes-enabled?) (if (ansi-escapes-enabled?)
(string-append start-escape str end-escape) (string-append start-escape str end-escape)
str))) str)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -38,7 +38,7 @@
;;> specified text color. ;;> specified text color.
(define black-escape (define black-escape
(make-simple-escape-procedure 30)) (make-simple-escape-procedure 30))
(define red-escape (define red-escape
(make-simple-escape-procedure 31)) (make-simple-escape-procedure 31))
(define green-escape (define green-escape