Add new procedure copy-sign

Signed-off-by: yamacir-kit <[email protected]>

README.md

@@ -97,9 +97,9 @@ Then, select one of the following targets and `make` it according to your purpos
 
 | Target      | Description
 |-------------|-------------
-| `all`       | Build shared-library `libmeevax.0.5.277.so` and executable `meevax`.
+| `all`       | Build shared-library `libmeevax.0.5.278.so` and executable `meevax`.
 | `install`   | Copy files into `/usr/local` directly.
-| `package`   | Generate debian package `meevax_0.5.277_amd64.deb` (only Ubuntu). The generated package can be installed by `sudo apt install build/meevax_0.5.277_amd64.deb`.
+| `package`   | Generate debian package `meevax_0.5.278_amd64.deb` (only Ubuntu). The generated package can be installed by `sudo apt install build/meevax_0.5.278_amd64.deb`.
 | `test`      | Test executable `meevax`. This target requires Valgrind to be installed.
 | `uninstall` | Remove files copied to `/usr/local` directly by target `install`.
 

VERSION

@@ -1 +1 @@
-0.5.277
+0.5.278

basis/srfi-144.ss

@@ -6,6 +6,7 @@
             binary64-epsilon
             binary64-max
             binary64-min
+            copy-sign
             e
             euler
             gamma
@@ -157,5 +158,7 @@
          (define flonum inexact)
 
          (define fladjacent next-after)
+
+         (define flcopysign copy-sign)
          )
   )

include/meevax/kernel/number.hpp

@@ -404,6 +404,8 @@ inline namespace number
 
   auto next_after(object const&, object const&) -> object;
 
+  auto copy_sign(object const&, object const&) -> object;
+
   auto number_to_string(object const&, int) -> object;
 } // namespace number
 } // namespace kernel

src/kernel/boot.cpp

@@ -560,6 +560,11 @@ namespace meevax::inline kernel
         return next_after(car(xs), cadr(xs));
       });
 
+      library.define<procedure>("copy-sign", [](let const& xs)
+      {
+        return copy_sign(car(xs), cadr(xs));
+      });
+
       library.define<double>("e", std::numbers::e);
 
       library.define<double>("pi", std::numbers::pi);

src/kernel/number.cpp

@@ -987,6 +987,7 @@ inline namespace number
   }
 
   DEFINE_REAL_BINARY(atan, std::atan2)
+  DEFINE_REAL_BINARY(copy_sign, std::copysign)
   DEFINE_REAL_BINARY(next_after, std::nextafter)
 
   auto number_to_string(object const& x, int radix) -> object