Check fract on float for integer? (#214)

* check fract on float for integer?

* adjust tests to accommodate new behavior

* fix exact-integer

crates/steel-core/src/primitives/numbers.rs

@@ -113,7 +113,11 @@ fn rationalp(value: &SteelVal) -> bool {
 /// ```
 #[steel_derive::function(name = "int?", constant = true)]
 fn intp(value: &SteelVal) -> bool {
-    matches!(value, SteelVal::IntV(_) | SteelVal::BigNum(_))
+    match value {
+        SteelVal::IntV(_) | SteelVal::BigNum(_) => true,
+        SteelVal::NumV(n) if n.fract() == 0.0 => true,
+        _ => false,
+    }
 }
 
 /// Checks if the given value is an integer, an alias for `int?`
@@ -147,7 +151,7 @@ fn integerp(value: &SteelVal) -> bool {
 /// ```
 #[steel_derive::function(name = "exact-integer?", constant = true)]
 fn exact_integerp(value: &SteelVal) -> bool {
-    intp(value)
+    matches!(value, SteelVal::IntV(_) | SteelVal::BigNum(_))
 }
 
 /// Checks if the given value is a floating-point number

crates/steel-core/src/steel_vm/tests.rs

@@ -452,7 +452,7 @@ mod contract_tests {
         let script = r#"
         (define/contract (output)
             (->/c (->/c string? int?))
-            (lambda (x) 10.0))
+            (lambda (x) 10.1))
 
         (define/contract (accept)
             (->/c (->/c string? number?))