conservatory/picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

delete trailing whitespaces

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-06-28 20:13:06 +09:00
parent a7c9537e06
commit d294330aa5
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/r7rs-tests.scm
+6 -6
View File
@@ -310,7 +310,7 @@
(test 3 (force (delay (+ 1 2)))) (test 3 (force (delay (+ 1 2))))
(test '(3 3) (test '(3 3)
(let ((p (delay (+ 1 2)))) (let ((p (delay (+ 1 2))))
(list (force p) (force p)))) (list (force p) (force p))))
@@ -328,7 +328,7 @@
(define (stream-filter p? s) (define (stream-filter p? s)
(delay-force (delay-force
(if (null? (force s)) (if (null? (force s))
(delay '()) (delay '())
(let ((h (car (force s))) (let ((h (car (force s)))
(t (cdr (force s)))) (t (cdr (force s))))
@@ -390,7 +390,7 @@
(test `(list ,(+ 1 2) 4) (quasiquote (list (unquote (+ 1 2)) 4))) (test `(list ,(+ 1 2) 4) (quasiquote (list (unquote (+ 1 2)) 4)))
;; (define plus ;; (define plus
;; (case-lambda ;; (case-lambda
;; (() 0) ;; (() 0)
;; ((x) x) ;; ((x) x)
;; ((x y) (+ x y)) ;; ((x y) (+ x y))
@@ -404,7 +404,7 @@
;; (test 10 (plus 1 2 3 4)) ;; (test 10 (plus 1 2 3 4))
;; (define mult ;; (define mult
;; (case-lambda ;; (case-lambda
;; (() 1) ;; (() 1)
;; ((x) x) ;; ((x) x)
;; ((x y) (* x y)) ;; ((x y) (* x y))
@@ -1017,7 +1017,7 @@
(test #t (symbol=? 'a 'a 'a)) (test #t (symbol=? 'a 'a 'a))
(test #f (symbol=? 'a 'a 'A)) (test #f (symbol=? 'a 'a 'A))
(test "flying-fish" (test "flying-fish"
(symbol->string 'flying-fish)) (symbol->string 'flying-fish))
(test "Martin" (symbol->string 'Martin)) (test "Martin" (symbol->string 'Martin))
(test "Malvina" (symbol->string (string->symbol "Malvina"))) (test "Malvina" (symbol->string (string->symbol "Malvina")))
@@ -2168,7 +2168,7 @@
;; (test-numeric-syntax "0.5+3/4i" (make-rectangular 0.5 (/ 3 4)) ;; (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") ;; "0.5+0.75i" ".5+.75i" "0.5+3/4i" ".5+3/4i" "500.0e-3+750.0e-3i")
;; ;; Complex NaN, Inf (rectangular notation) ;; ;; 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") ;; (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")