~ chicken-core (master) 416b9ba241eaff4f13efd0a2d6e740e9da0973ef
commit 416b9ba241eaff4f13efd0a2d6e740e9da0973ef
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Oct 29 12:43:38 2025 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Wed Oct 29 12:43:38 2025 +0100
missing use of exact-integer?
diff --git a/library.scm b/library.scm
index b45c4d05..3e1b584a 100644
--- a/library.scm
+++ b/library.scm
@@ -2851,7 +2851,7 @@ EOF
((ratnum? b)
;; x^{a/b} = (x^{1/b})^a
(cond
- ((exact-integer? a)
+ ((##core#inline "C_i_exact_integerp" a)
(if (negative? a)
(log-expt (exact->inexact a) (exact->inexact b))
(receive (ds^n r)
Trap