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

added format arg to printf to avoid corner-case printf bugs, rackety changes

Browse Source
This commit is contained in:
John Clements 2010-09-17 10:18:49 -07:00
parent 04defa4937
commit a095ebc326
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/test-engine/racket-tests.rkt
View File

@ -5,7 +5,7 @@
scheme/match scheme/match
lang/private/continuation-mark-key lang/private/continuation-mark-key
(only scheme/base for memf findf) (only scheme/base for memf findf)
"test-engine.scm" "test-engine.rkt"
"test-info.scm" "test-info.scm"
) )

2
collects/test-engine/test-display.scm
View File

@ -6,7 +6,7 @@
framework framework
string-constants string-constants
"test-info.scm" "test-info.scm"
"test-engine.scm" "test-engine.rkt"
"print.ss" "print.ss"
(except-in deinprogramm/signature/signature signature-violation) ; clashes with test-engine (except-in deinprogramm/signature/signature signature-violation) ; clashes with test-engine
deinprogramm/quickcheck/quickcheck) deinprogramm/quickcheck/quickcheck)

6
collects/test-engine/test-engine.scm → collects/test-engine/test-engine.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang racket/base
(require scheme/class (require racket/class
"test-info.scm") "test-info.scm")
(define test-display-textual% (define test-display-textual%
@ -99,7 +99,7 @@
;; make-link: (listof (U check-fail (U string snip%))) src -> void ;; make-link: (listof (U check-fail (U string snip%))) src -> void
(define (make-link reason dest) (define (make-link reason dest)
(print-reason display display reason) (print-reason display display reason)
(printf (format-src dest))) (printf "~a" (format-src dest)))
(define (format-src src) (define (format-src src)
(let ([src-file car] (let ([src-file car]