Remove struct profiler

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

README.md

@@ -74,7 +74,7 @@ Subset of R7RS-small.
 cmake -B build -DCMAKE_BUILD_TYPE=Release
 cd build
 make package
-sudo apt install build/meevax_0.4.805_amd64.deb
+sudo apt install build/meevax_0.4.806_amd64.deb
 ```
 
 or
@@ -106,9 +106,9 @@ sudo rm -rf /usr/local/share/meevax
 
 | Target Name | Description
 |-------------|-------------
-| `all`       | Build shared-library `libmeevax.0.4.805.so` and executable `meevax`
+| `all`       | Build shared-library `libmeevax.0.4.806.so` and executable `meevax`
 | `test`      | Test executable `meevax`
-| `package`   | Generate debian package `meevax_0.4.805_amd64.deb`
+| `package`   | Generate debian package `meevax_0.4.806_amd64.deb`
 | `install`   | Copy files into `/usr/local` directly
 
 ## Usage

VERSION

@@ -1 +1 @@
-0.4.805
+0.4.806

include/meevax/kernel/dynamic_environment.hpp

@@ -118,11 +118,6 @@ inline namespace kernel
                     << faint("; d = ") << d << "\n" << std::endl;
         }
 
-        if constexpr (profiler::count_instruction_fetch)
-        {
-          current_profiler().instruction_fetchs[car(c).template as<instruction>()]++;
-        }
-
         switch (car(c).template as<instruction>())
         {
         case instruction::load_absolute: /* ------------------------------------

include/meevax/kernel/heterogeneous.hpp

@@ -21,7 +21,6 @@
 #include <meevax/functional/compose.hpp>
 #include <meevax/iostream/escape_sequence.hpp>
 #include <meevax/iostream/lexical_cast.hpp>
-#include <meevax/kernel/profiler.hpp>
 #include <meevax/memory/gc_pointer.hpp>
 #include <meevax/type_traits/is_array_subscriptable.hpp>
 #include <meevax/type_traits/is_equality_comparable.hpp>
@@ -109,12 +108,6 @@ inline namespace kernel
     template <typename Bound, typename... Us>
     static auto allocate(Us&&... xs)
     {
-      if constexpr (profiler::count_allocations)
-      {
-        current_profiler().allocation_counts[typeid(Bound)]++;
-        current_profiler().allocation_counts[typeid(void)]++;
-      }
-
       if constexpr (std::is_same_v<Bound, Top>)
       {
         return heterogeneous(gc.make<Top>(std::forward<decltype(xs)>(xs)...));

include/meevax/kernel/pair.hpp

@@ -18,6 +18,7 @@
 #define INCLUDED_MEEVAX_KERNEL_PAIR_HPP
 
 #include <meevax/kernel/heterogeneous.hpp>
+#include <meevax/kernel/instruction.hpp>
 
 namespace meevax
 {