Fix minor R7RS test failures

[higepon]

(SKIPPED (let () (define-syntax elli-lit-1 (syntax-rules ... (...) ((_ x) '(x ...)))) (test '(100 ...) (elli-lit-1 100))))
(SKIPPED (test #f (string->number "1 2")))
(SKIPPED (test #t (read-error? (guard (exn (else exn)) (read (open-input-string """))))))
(SKIPPED (test 'error (let ((in (open-input-string "abc"))) (close-input-port in) (guard (exn (else 'error)) (read-char in)))))
(SKIPPED (test #t (char-ready? (open-input-string "42"))))
(SKIPPED (test "((1 2 3) (1 2 3))" (let ((out (open-output-string)) (x (list 1 2 3))) (write (list x x) out) (get-output-string out))))
(SKIPPED (test "line 1\n\nline 3\n" (read (open-input-string ""line 1\ \t \n \t \n\nline 3\n""))))
(SKIPPED (test-precision "-1.7976931348623157e+308" "-inf.0"))
(SKIPPED (test-precision "1.976262583364986e-323" "1.97626258336499e-323" "2.0e-323" "0.0"))
(SKIPPED (test-precision "1.7976931348623157e+308" "+inf.0"))