From d294330aa56fc47409b95d83ff4fcef3c6654f7b Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 28 Jun 2014 20:13:06 +0900 Subject: [PATCH] delete trailing whitespaces --- t/r7rs-tests.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index 4fc078a1..6a101cef 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -310,7 +310,7 @@ (test 3 (force (delay (+ 1 2)))) -(test '(3 3) +(test '(3 3) (let ((p (delay (+ 1 2)))) (list (force p) (force p)))) @@ -328,7 +328,7 @@ (define (stream-filter p? s) (delay-force - (if (null? (force s)) + (if (null? (force s)) (delay '()) (let ((h (car (force s))) (t (cdr (force s)))) @@ -390,7 +390,7 @@ (test `(list ,(+ 1 2) 4) (quasiquote (list (unquote (+ 1 2)) 4))) ;; (define plus -;; (case-lambda +;; (case-lambda ;; (() 0) ;; ((x) x) ;; ((x y) (+ x y)) @@ -404,7 +404,7 @@ ;; (test 10 (plus 1 2 3 4)) ;; (define mult -;; (case-lambda +;; (case-lambda ;; (() 1) ;; ((x) x) ;; ((x y) (* x y)) @@ -1017,7 +1017,7 @@ (test #t (symbol=? 'a 'a 'a)) (test #f (symbol=? 'a 'a 'A)) -(test "flying-fish" +(test "flying-fish" (symbol->string 'flying-fish)) (test "Martin" (symbol->string 'Martin)) (test "Malvina" (symbol->string (string->symbol "Malvina"))) @@ -2168,7 +2168,7 @@ ;; (test-numeric-syntax "0.5+3/4i" (make-rectangular 0.5 (/ 3 4)) ;; "0.5+0.75i" ".5+.75i" "0.5+3/4i" ".5+3/4i" "500.0e-3+750.0e-3i") ;; ;; Complex NaN, Inf (rectangular notation) -;; ;;(test-numeric-syntax "+nan.0+nan.0i" (make-rectangular the-nan the-nan) "+NaN.0+NaN.0i") +;; ;;(test-numeric-syntax "+nan.0+nan.0i" (make-rectangular the-nan the-nan) "+NaN.0+NaN.0i") ;; (test-numeric-syntax "+inf.0+inf.0i" (make-rectangular +inf.0 +inf.0) "+Inf.0+Inf.0i") ;; (test-numeric-syntax "-inf.0+inf.0i" (make-rectangular -inf.0 +inf.0) "-Inf.0+Inf.0i") ;; (test-numeric-syntax "-inf.0-inf.0i" (make-rectangular -inf.0 -inf.0) "-Inf.0-Inf.0i")