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 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")