~ chicken-core (master) 65a6f57ac8cba26735be9dca5a3d6282a23d309f
commit 65a6f57ac8cba26735be9dca5a3d6282a23d309f
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Nov 20 10:57:37 2025 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Thu Nov 20 10:57:37 2025 +0100
expt is in (scheme base), not (scheme inexact) (thanks, Diego)
diff --git a/modules.scm b/modules.scm
index a14a1c0d..b9fc3a37 100644
--- a/modules.scm
+++ b/modules.scm
@@ -1194,6 +1194,7 @@
(sqrt . scheme#sqrt)
(square . scheme#square)
(exact-integer-sqrt . scheme#exact-integer-sqrt)
+ (expt . scheme#expt)
(number->string . scheme#number->string)
(string->number . scheme#string->number)
(char? . scheme#char?) (char=? . scheme#char=?)
@@ -1384,7 +1385,7 @@
(##sys#register-core-module
'scheme.inexact 'library
- '((exp . scheme#exp) (log . scheme#log) (expt . scheme#expt)
+ '((exp . scheme#exp) (log . scheme#log)
(sqrt . scheme#sqrt) (nan? . chicken.base#nan?)
(sin . scheme#sin) (cos . scheme#cos) (tan . scheme#tan)
(asin . scheme#asin) (acos . scheme#acos) (atan . scheme#atan)
Trap