Permalink
Browse files

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

…changes
  • Loading branch information...
1 parent 04defa4 commit a095ebc326aa35b5b19f314080855db5d55ed49b @jbclements jbclements committed Sep 17, 2010
@@ -5,7 +5,7 @@
scheme/match
lang/private/continuation-mark-key
(only scheme/base for memf findf)
- "test-engine.scm"
+ "test-engine.rkt"
"test-info.scm"
)
@@ -6,7 +6,7 @@
framework
string-constants
"test-info.scm"
- "test-engine.scm"
+ "test-engine.rkt"
"print.ss"
(except-in deinprogramm/signature/signature signature-violation) ; clashes with test-engine
deinprogramm/quickcheck/quickcheck)
@@ -1,6 +1,6 @@
-#lang scheme/base
+#lang racket/base
-(require scheme/class
+(require racket/class
"test-info.scm")
(define test-display-textual%
@@ -99,7 +99,7 @@
;; make-link: (listof (U check-fail (U string snip%))) src -> void
(define (make-link reason dest)
(print-reason display display reason)
- (printf (format-src dest)))
+ (printf "~a" (format-src dest)))
(define (format-src src)
(let ([src-file car]

0 comments on commit a095ebc

Please sign in to comment.