Use exact-integer? when parsing to avoid 1.0.

Author: dvanhorn

langs/abscond/parse.rkt

@@ -5,5 +5,5 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?) (Int s)]
-    [_            (error "Parse error")]))
+    [(? exact-integer?) (Int s)]
+    [_ (error "Parse error")]))

langs/blackmail/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?) (Int s)]
+    [(? exact-integer?) (Int s)]
     [(list (? op1? o) e) (Prim1 o (parse e))]
     [_ (error "Parse error")]))
 

langs/con/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?) (Int s)]
+    [(? exact-integer?) (Int s)]
     [(list (? op1? o) e) (Prim1 o (parse e))]    
     [(list 'if (list 'zero? e1) e2 e3)
      (IfZero (parse e1) (parse e2) (parse e3))]

langs/dodger/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?) (Int s)]
+    [(? exact-integer?) (Int s)]
     [(? boolean?) (Bool s)]
     [(? char?)    (Char s)]
     [(list (? op1? o) e)  (Prim1 o (parse e))]

langs/dupe/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?) (Int s)]
+    [(? exact-integer?) (Int s)]
     [(? boolean?) (Bool s)]
     [(list (? op1? o) e) (Prim1 o (parse e))]        
     [(list 'if e1 e2 e3)

langs/evildoer/parse.rkt

@@ -6,7 +6,7 @@
 (define (parse s)
   (match s
     ['eof                (Eof)]
-    [(? integer?)        (Int s)]
+    [(? exact-integer?)  (Int s)]
     [(? boolean?)        (Bool s)]
     [(? char?)           (Char s)]
     [(list (? op0? o))   (Prim0 o)]

langs/extort/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer? s) (Int s)]
+    [(? exact-integer? s) (Int s)]
     [(? boolean? s) (Bool s)]
     [(? char? s)    (Char s)]    
     ['eof           (Eof)]

langs/fraud/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?)            (Int s)]
+    [(? exact-integer?)      (Int s)]
     [(? boolean? s)          (Bool s)]
     [(? char? s)             (Char s)]
     ['eof                    (Eof)]

langs/hoax/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?)                  (Int s)]
+    [(? exact-integer?)            (Int s)]
     [(? boolean?)                  (Bool s)]
     [(? char?)                     (Char s)]
     [(? string?)                   (Str s)]

langs/hustle/parse.rkt

@@ -5,7 +5,7 @@
 ;; S-Expr -> Expr
 (define (parse s)
   (match s
-    [(? integer?)                  (Int s)]
+    [(? exact-integer?)            (Int s)]
     [(? boolean?)                  (Bool s)]
     [(? char?)                     (Char s)]
     ['eof                          (Eof)]