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

delete trailing whitespaces

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
t/r7rs-tests.scm
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")