From a023db80540457634dab5875700fb93c58c1fc08 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 8 Aug 2014 15:07:21 +0900
Subject: [PATCH] drop support for rational literal

---
 src/read.c       | 11 -----------
 t/r7rs-tests.scm | 18 +++++++++---------
 2 files changed, 9 insertions(+), 20 deletions(-)

diff --git a/src/read.c b/src/read.c
index 489426b5..d1546104 100644
--- a/src/read.c
+++ b/src/read.c
@@ -241,7 +241,6 @@ read_number(pic_state *pic, struct pic_port *port, int c)
 {
   char buf[256];
   size_t i;
-  long n;
 
   i = read_uinteger(pic, port, c, buf);
 
@@ -253,16 +252,6 @@ read_number(pic_state *pic, struct pic_port *port, int c)
     buf[i] = '\0';
     return pic_float_value(atof(buf));
 
-  case '/':
-    n = atoi(buf);
-    next(port);
-    read_uinteger(pic, port, next(port), buf);
-    if (n == n / atoi(buf) * atoi(buf)) {
-      return pic_int_value(n / atoi(buf)); /* exact */
-    } else {
-      return pic_float_value(n / (double)atoi(buf));
-    }
-
   default:
     return pic_int_value(atoi(buf));
   }
diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index 19050d71..b96b14eb 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -631,11 +631,11 @@
 ;; (test #t (real? #e1e10))
 (test #t (real? +inf.0))
 ;; (test #f (rational? -inf.0))
-(test #t (rational? 6/10))
-(test #t (rational? 6/3))
+;; (test #t (rational? 6/10))
+;; (test #t (rational? 6/3))
 ;; (test #t (integer? 3+0i))
 (test #t (integer? 3.0))
-(test #t (integer? 8/4))
+;; (test #t (integer? 8/4))
 
 (test #f (exact? 3.0))
 ;; (test #t (exact? #e3.0))
@@ -643,7 +643,7 @@
 
 (test #t (exact-integer? 32))
 (test #f (exact-integer? 32.0))
-(test #f (exact-integer? 32/5))
+;; (test #f (exact-integer? 32/5))
 
 (test #t (finite? 3))
 (test #f (finite? +inf.0))
@@ -757,8 +757,8 @@
 (test -1 (- 3 4))
 (test -6 (- 3 4 5))
 (test -3 (- 3))
-(test 3/20 (/ 3 4 5))
-(test 1/3 (/ 3))
+;; (test 3/20 (/ 3 4 5))
+;; (test 1/3 (/ 3))
 
 (test 7 (abs -7))
 (test 7 (abs 7))
@@ -811,7 +811,7 @@
 (test 3.0 (truncate 3.5))
 (test 4.0 (round 3.5))
 
-(test 4 (exact (round 7/2)))
+;; (test 4 (exact (round 7/2)))
 (test 7 (round 7))
 
 ;; (test 1/3 (rationalize (exact .3) 1/10))
@@ -2126,9 +2126,9 @@
 ;; ;; Exact ratios
 ;; (test-numeric-syntax "1/2" (/ 1 2))
 ;; (test-numeric-syntax "#e1/2" (/ 1 2) "1/2")
-(test-numeric-syntax "10/2" 5 "5")
+;; (test-numeric-syntax "10/2" 5 "5")
 ;; (test-numeric-syntax "-1/2" (- (/ 1 2)))
-(test-numeric-syntax "0/10" 0 "0")
+;; (test-numeric-syntax "0/10" 0 "0")
 ;; (test-numeric-syntax "#e0/10" 0 "0")
 ;; (test-numeric-syntax "#i3/2" (/ 3.0 2.0) "1.5")
 ;; ;; Exact complex