mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 21:47:33 +02:00
Using consistent spacing.
This commit is contained in:
parent
bdd953c1e0
commit
389f5388f0
1 changed files with 4 additions and 4 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue