diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2026-01-11 14:58:28 -0500 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2026-01-11 14:58:28 -0500 |
| commit | a4eb2d1ad35f2ee2da2aa442b19d2e8267e71afa (patch) | |
| tree | def4638aed6d14567a3c134dd2c190994962869c | |
| parent | e4b8d9c84d8bb2a07b1f587c12b261f3bdfde86f (diff) | |
Hook up Real.rounded_to()
| -rw-r--r-- | src/environment.c | 1 | ||||
| -rw-r--r-- | src/stdlib/reals.h | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/environment.c b/src/environment.c index baae3beb..8087820a 100644 --- a/src/environment.c +++ b/src/environment.c @@ -300,6 +300,7 @@ env_t *global_env(bool source_mapping) { {"power", "Real$power", "func(base:Real,exponent:Real -> Real)"}, // {"sqrt", "Real$sqrt", "func(x:Real -> Real)"}, // {"times", "Real$times", "func(x,y:Real -> Real)"}, // + {"rounded_to", "Real$rounded_to", "func(x:Real, rounded_to:Real = 1.0 -> Real)"}, // ), MAKE_TYPE( // "CString", Type(CStringType), Text("char*"), Text("CString$info"), // diff --git a/src/stdlib/reals.h b/src/stdlib/reals.h index a322ff64..ddb91f66 100644 --- a/src/stdlib/reals.h +++ b/src/stdlib/reals.h @@ -39,6 +39,8 @@ Real_t Real$sqrt(Real_t x); bool Real$equal(const void *va, const void *vb, const TypeInfo_t *t); int32_t Real$compare(const void *va, const void *vb, const TypeInfo_t *t); +Real_t Real$rounded_to(Real_t x, Real_t round_to); + int Real$test(); extern const TypeInfo_t Real$info; |