Permalink
Browse files

Might as well ditch cout entirely and just use printf

  • Loading branch information...
1 parent 77e2712 commit 7a56826d99d439607118e73fc712463e9a0415e8 @calvis committed Jan 12, 2012
Showing with 1 addition and 7 deletions.
  1. +1 −7 tester.scm
View
8 tester.scm
@@ -3,12 +3,6 @@
(export test-check test-divergence)
(import (chezscheme))
-(define (cout . args)
- (for-each
- (lambda (x)
- (if (procedure? x) (x) (display x)))
- args))
-
(define test-error
(lambda (tag . args)
(printf "Failed: ~s: ~%" tag)
@@ -19,7 +13,7 @@
(syntax-rules ()
((_ title tested-expression expected-result)
(begin
- (cout "Testing " title (string #\newline))
+ (printf "Testing ~a\n" title)
(let* ((expected expected-result)
(produced tested-expression))
(or (equal? expected produced)

0 comments on commit 7a56826

Please sign in to comment.