suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove rackunit' dependency on srfi/13'

Browse Source 
Cuts the bytecode footprint of `rackunit' in half
(by more than 200 KB).
This commit is contained in:
Matthew Flatt 2012-08-14 09:41:29 -06:00
parent cbd5fe910d
commit 36f519fe64
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/rackunit/private/format.rkt
View File

@ -1,6 +1,5 @@
#lang racket/base #lang racket/base
(require racket/match (require racket/match
srfi/13
"base.rkt" "base.rkt"
"check-info.rkt") "check-info.rkt")
@ -31,6 +30,15 @@
(define (display-error) (define (display-error)
(display "ERROR")) (display "ERROR"))
(define (string-pad-right s n)
(define m (string-length s))
(cond
[(= m n) s]
[(m . < . n)
(string-append (make-string (- n m) #\space) s)]
[else
(substring s (- m n))]))
(define (display-check-info-name-value name value [value-printer write]) (define (display-check-info-name-value name value [value-printer write])
(display (string-pad-right (display (string-pad-right
(string-append (symbol->string name) ": ") (string-append (symbol->string name) ": ")