make integer? works for normal native numbers

jcubic · Jan 16, 2024 · b049f5e · b049f5e
1 parent 89c1a2e
commit b049f5e
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -23,6 +23,7 @@
 * fix writing to binary ports
 * fix unboxing object literals
 * throw error on comparing complex numbers [#248](https://github.com/jcubic/lips/issues/248)
+* make `integer?` works for normal native numbers
 
 ## 1.0.0-beta.17
 ### Breaking

diff --git a/dist/std.min.scm b/dist/std.min.scm
diff --git a/dist/std.scm b/dist/std.scm
diff --git a/dist/std.xcb b/dist/std.xcb
diff --git a/lib/R5RS.scm b/lib/R5RS.scm
@@ -329,6 +329,7 @@
        (not (eq? x Number.NEGATIVE_INFINITY))
        (not (eq? x Number.POSITIVE_INFINITY))
        (or (%number-type "bigint" x)
+           (%number-type "integer" x)
            (and (%number-type "float" x)
                 (= (modulo x 2) 1)))))